(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    437121,       8650]
NotebookOptionsPosition[    433414,       8525]
NotebookOutlinePosition[    433777,       8541]
CellTagsIndexPosition[    433734,       8538]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Player Piano", "Subsubtitle",
 CellChangeTimes->{{3.529245648192724*^9, 3.529245649894855*^9}}],

Cell["\<\
THE STORY OF THE RISE OF THE MACHINE AND THE DECLINE OF MAN, WHICH \
PARADOXICALLY COINCIDED WITH HIS DISCOVERY OF THE WHEEL ... AND A WARNING \
THAT HIS BRIEF DOMINANCE OF THIS PLANET WILL PROBABLY END, BECAUSE MAN TRIED \
TO CREATE ROBOT IN HIS OWN IMAGE.\
\>", "Text"],

Cell["\<\
(actually that is from the I Robot album by The Alan Parsons Project, but you \
get the idea)\
\>", "Text",
 CellChangeTimes->{{3.529246883280775*^9, 3.529246915008155*^9}}],

Cell[CellGroupData[{

Cell["Nominal Label Full Error Model", "Section",
 CellChangeTimes->{{3.529245636568861*^9, 3.529245640740033*^9}}],

Cell[CellGroupData[{

Cell["logprating", "Subsection",
 CellChangeTimes->{{3.5292468436993837`*^9, 3.529246844464889*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "logprating", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"logprating", "[", 
    RowBox[{"r_", ",", " ", "\[Alpha]_", ",", " ", "log\[Beta]_"}], "]"}], 
   " ", ":=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"[", "r", "]"}], "]"}]}], " ", 
       RowBox[{"Exp", "[", "log\[Beta]", "]"}]}], "]"}], " ", "/", " ", 
     RowBox[{"(", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], " ", 
          RowBox[{"Exp", "[", "log\[Beta]", "]"}]}], "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", 
          RowBox[{"Length", "[", "\[Alpha]", "]"}]}], " ", "}"}]}], "]"}], 
      ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "forceunit", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"forceunit", "[", 
     RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "z", "}"}], ",", " ", 
      RowBox[{
       RowBox[{"z", " ", "=", " ", "x"}], ";", " ", 
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"[", "y", "]"}], "]"}], "=", " ", 
        RowBox[{"-", "1"}]}], ";", " ", "z"}]}], "]"}]}], ";"}], 
  " "}]}], "Input",
 CellChangeTimes->{{3.529260700471161*^9, 3.529260741837022*^9}, {
   3.5292607769969397`*^9, 3.5292607778448753`*^9}, 3.5292609349205227`*^9, {
   3.529261012323675*^9, 3.529261019764082*^9}, {3.529261255906536*^9, 
   3.529261257945509*^9}}],

Cell[CellGroupData[{

Cell["test vectors", "Subsubsection",
 CellChangeTimes->{{3.529246932415853*^9, 3.529246933239963*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{"#", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"logprating", "[", 
        RowBox[{
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
         RowBox[{"forceunit", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", " ", "1"}], "]"}], ",", " ", 
         
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"logprating", "[", 
           RowBox[{
            RowBox[{"1", " ", "+", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
            RowBox[{"forceunit", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", " ", "1"}], "]"}], ",", 
            "x"}], "]"}], ",", " ", "x"}], "]"}], " ", "/.", " ", 
        RowBox[{"x", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"logprating", "[", 
           RowBox[{
            RowBox[{"1", " ", "+", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
            RowBox[{"forceunit", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", " ", "1"}], "]"}], ",", 
            "x"}], "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"x", ",", " ", "2"}], " ", "}"}]}], "]"}], " ", "/.", " ", 
        
        RowBox[{"x", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
      "}"}]}], "\[IndentingNewLine]", "}"}], "&"}], " ", "/@", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", "3"}], "]"}], ",", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"Random", "[", "]"}]}], " ", "}"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], " ", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"i", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.529246529799534*^9, 3.529246594191876*^9}, {
  3.529260667584175*^9, 3.529260712103512*^9}, {3.5292607792642803`*^9, 
  3.529260782257428*^9}, {3.529261074021446*^9, 3.529261090821718*^9}, {
  3.529261191239503*^9, 3.529261191521604*^9}, {3.5292612301889467`*^9, 
  3.5292612531489677`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9473752198241845`", ",", "0.2984822287931729`", ",", 
         "0.6896164350491669`", ",", "0.11415682371260424`"}], "}"}], ",", 
       "0.49713818388837505`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.1248019460971244`"}], ",", 
       RowBox[{"-", "1.295701693813533`"}], ",", 
       RowBox[{"-", "2.169134900000073`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1579520303945464`", ",", "0.30186026835135293`", ",", 
         "0.13110859075225545`", ",", "0.11937492369120359`"}], "}"}], ",", 
       "0.6235081109068592`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.375816362672924`"}], ",", 
       RowBox[{"-", "1.5416373782287702`"}], ",", 
       RowBox[{"-", "2.443027435811477`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6984821148487873`", ",", "0.9356758837164915`", ",", 
         "0.412585361027038`", ",", "0.8943462180692225`"}], "}"}], ",", 
       "0.0020547612872624916`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.327679000398996`"}], ",", 
       RowBox[{"-", "1.307937882942055`"}], ",", 
       RowBox[{"-", "1.979544573061653`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.003972722454069068`", ",", "0.38542366728674`", ",", 
         "0.9179275173943834`", ",", "0.5441801324522002`"}], "}"}], ",", 
       "0.12077106789823265`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.14746674711725`"}], ",", 
       RowBox[{"-", "1.1547854620984364`"}], ",", 
       RowBox[{"-", "1.8641451513476566`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.08364160879552805`", ",", "0.271458676910178`", ",", 
         "0.08783985721473565`", ",", "0.28371496821254927`"}], "}"}], ",", 
       "0.13626638897134355`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.806295108281461`"}], ",", 
       RowBox[{"-", "0.654887070319309`"}], ",", 
       RowBox[{"-", "1.1265685300811752`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9729764481170051`", ",", "0.39822342216556866`", ",", 
         "0.16955814449994502`", ",", "0.6391282050829685`"}], "}"}], ",", 
       "0.8150244177224587`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "3.288458159955593`"}], ",", 
       RowBox[{"-", "2.7956043425120347`"}], ",", 
       RowBox[{"-", "3.7695208069352777`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09636315381421574`", ",", "0.03844955374768959`", ",", 
         "0.5197532813917649`", ",", "0.19151630681559953`"}], "}"}], ",", 
       "0.39788103896542837`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.1704713031481555`"}], ",", 
       RowBox[{"-", "1.191374118525212`"}], ",", 
       RowBox[{"-", "1.912133718275097`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.10277367003119815`", ",", "0.10716792036472687`", ",", 
         "0.297170088746377`", ",", "0.3958262776781659`"}], "}"}], ",", 
       "0.09880094757712908`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.5582849696829066`"}], ",", "0.5905661274489121`", ",", 
       "0.11635752874732619`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7217442530779868`", ",", "0.3792425713519937`", ",", 
         "0.8516461452259657`", ",", "0.9780298796788964`"}], "}"}], ",", 
       "0.6381026442824589`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.7304701114236347`"}], ",", 
       RowBox[{"-", "2.2685486856764197`"}], ",", 
       RowBox[{"-", "3.21745569801305`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.10778389444181567`", ",", "0.7638062880112301`", ",", 
         "0.6943149114663472`", ",", "0.5018362553111153`"}], "}"}], ",", 
       "0.13480744632481056`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.3757392228336113`"}], ",", "0.5874094089711797`", ",", 
       
       RowBox[{"-", "0.1744582491102341`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5292610914747543`*^9, 3.5292611931736727`*^9, {3.529261232621806*^9, 
   3.5292612599652*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["E - Step", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "estep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"estep", "[", 
    RowBox[{
    "priorz_", ",", " ", "d_", ",", " ", "\[Alpha]_", ",", " ", 
     "log\[Beta]_"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"logz", " ", "=", " ", 
        RowBox[{"Log", " ", "/@", " ", "priorz"}]}], ",", 
       "\[IndentingNewLine]", "              ", "x", ",", " ", "y", ",", 
       "\[IndentingNewLine]", "              ", "worker", ",", 
       "\[IndentingNewLine]", "              ", "image", ",", 
       "\[IndentingNewLine]", "              ", "rating"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "d", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"worker", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"rating", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
           RowBox[{"y", " ", "\[LessEqual]", " ", 
            RowBox[{"Length", "[", "priorz", "]"}]}], ",", " ", 
           RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"logz", "[", 
             RowBox[{"[", "y", "]"}], "]"}], " ", "+=", " ", 
            RowBox[{"logprating", "[", 
             RowBox[{"rating", ",", " ", 
              RowBox[{
               RowBox[{"\[Alpha]", "[", 
                RowBox[{"[", "worker", "]"}], "]"}], "[", 
               RowBox[{"[", "y", "]"}], "]"}], ",", " ", "log\[Beta]"}], 
             "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"logz", " ", "-", " ", 
         RowBox[{"Max", "[", "logz", "]"}]}], "]"}], " ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"Plus", " ", "@@", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"logz", " ", "-", " ", 
           RowBox[{"Max", "[", "logz", "]"}]}], "]"}]}], ")"}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.503955461771839*^9, 3.503955547544071*^9}, {
  3.503956414315634*^9, 3.50395641749085*^9}, {3.504015123048579*^9, 
  3.504015144260337*^9}, {3.5040198586581793`*^9, 3.5040198610794373`*^9}, {
  3.504020706633234*^9, 3.504020834052479*^9}, {3.5040323138246193`*^9, 
  3.504032315116683*^9}, {3.525095358212021*^9, 3.525095394107882*^9}, {
  3.525095430271084*^9, 3.525095527225823*^9}, {3.525095825399502*^9, 
  3.525095905551168*^9}, {3.525095987054782*^9, 3.525095987476919*^9}, {
  3.529246977214025*^9, 3.52924697992236*^9}, {3.5292595002775087`*^9, 
  3.529259520825968*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for estep ", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
   3.504185890254962*^9, 3.504185890709035*^9}, {3.5042036574835863`*^9, 
   3.504203657569166*^9}, {3.504916768505199*^9, 3.504916769023423*^9}, 
   3.529260167313177*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"!", " ", 
               RowBox[{"ListQ", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
              RowBox[{"!", " ", 
               RowBox[{"IntegerQ", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
           RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
        " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"estep", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "priorz", " ", "*)"}], "\[IndentingNewLine]", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", 
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], " ", "/@", 
          " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
         RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], " ", 
        RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        "]"}]}], " ", "}"}], "&"}], " ", "/@", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], "}"}]}], "]"}], 
        ",", " ", 
        RowBox[{"(*", " ", "priorz", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], 
           "\[IndentingNewLine]", "}"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"i", " ", "\[Equal]", " ", "j"}], ",", " ", 
                RowBox[{"-", "1.0"}], ",", " ", 
                RowBox[{"Random", "[", "]"}]}], "]"}], ",", " ", 
              RowBox[{"{", " ", 
               RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", 
               "}"}]}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", "nlabels"}], "}"}]}], 
           "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}],
         ",", " ", 
        RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Random", "[", "]"}]}], " ", 
       RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
       "}"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], "]"}]}], 
   ")"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50418590618461*^9, 3.504185912579707*^9}, {
   3.504186397115213*^9, 3.5041864627493553`*^9}, {3.504187243434793*^9, 
   3.504187335384948*^9}, {3.5041877893781147`*^9, 3.504187789468603*^9}, {
   3.5042036666855288`*^9, 3.504203720287292*^9}, {3.504203761143361*^9, 
   3.5042038785987473`*^9}, 3.504204172101022*^9, {3.504204669966267*^9, 
   3.504204721532045*^9}, {3.504205201368525*^9, 3.50420520145702*^9}, {
   3.504916778737276*^9, 3.504916863804089*^9}, {3.5049169268616257`*^9, 
   3.504916928690382*^9}, {3.504917060811596*^9, 3.504917060922855*^9}, {
   3.5250955762308903`*^9, 3.525095760553*^9}, 3.5250959695874777`*^9, 
   3.5250965827944593`*^9, {3.525204057783826*^9, 3.525204058051342*^9}, {
   3.5292595789959106`*^9, 3.529259590726576*^9}, 3.5292614639223623`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.36558286584566135`", ",", "0.5247567669664022`", ",", 
         "0.8627080502281468`", ",", "0.31978302860235186`", ",", 
         "0.2692197120314456`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.4863072132187125`", ",", 
         "0.3429547688363819`", ",", "0.12826672178675236`", ",", 
         "0.8713386730660172`", ",", "0.38353354318751437`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.23578684847165501`", ",", 
         "0.8310966330403753`", ",", "0.47551239538785134`", ",", 
         "0.2847325956103853`", ",", "0.5140425953936681`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.45185406168838166`", ",", 
         "0.6238662501618857`", ",", "0.30670271593148885`", ",", 
         "0.8759399511112093`", ",", "0.34407016724656597`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8600599621506556`", ",", 
         "0.6123878044651417`", ",", "0.374103695800094`", ",", 
         "0.20926272092175544`", ",", "0.49447709630499426`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.0876310374987396`", ",", 
         "0.5113956455719472`", ",", "0.8894796923194036`", ",", 
         "0.22525738427354863`", ",", "0.6013238242800271`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.16844087673556532`", ",", 
         "0.7612129705326512`", ",", "0.35391871120753143`", ",", 
         "0.2177902810925127`", ",", "0.9326540282639103`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9301163374922758`", ",", 
         "0.8784063158196801`", ",", "0.9330576854821274`", ",", 
         "0.41861143287024216`", ",", "0.47826227580389424`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.25454006565779447`", ",", 
         "0.6263549695506385`", ",", "0.5426714817590329`", ",", 
         "0.13419210855732822`", ",", "0.39448010350713886`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.013967165085496835`", ",", 
         "0.16856778595893893`", ",", "0.9249293876355728`", ",", 
         "0.9000030072021447`", ",", "0.9263361275867572`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6571721403869917`", ",", 
         "0.03544969531616924`", ",", "0.674745622928596`", ",", 
         "0.3250123033067302`", ",", "0.48873126365142644`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.274236724783518`", ",", 
         "0.32082691172106453`", ",", "0.10722202221421748`", ",", 
         "0.5560772353875161`", ",", "0.34412038729124217`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.44242059590138444`", ",", 
         "0.17416433673209009`", ",", "0.13746580251727394`", ",", 
         "0.8658581114873479`", ",", "0.18788053024359`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5478093671814516`", ",", 
         "0.594794320758241`", ",", "0.7316660029300197`", ",", 
         "0.7934004267364512`", ",", "0.5338422020959547`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4262265347993021`", ",", 
         "0.806736615294447`", ",", "0.8933974195343065`", ",", 
         "0.6075060745091975`", ",", "0.7690543944123104`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7712869199782777`", ",", 
         "0.21865179660571055`", ",", "0.28249377120246727`", ",", 
         "0.28032313076088394`", ",", "0.4970501951947597`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.897824884884646`", ",", 
         "0.1752717489882498`", ",", "0.7242458953733678`", ",", 
         "0.1529298079035175`", ",", "0.4554042889832616`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.0011074122561597253`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0005738762511912172`", ",", "0.015410201400083937`", ",", 
       "0.9817766561810165`", ",", "0.000394053749777377`", ",", 
       "0.0018452124179309287`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5867800928560939`", ",", "0.2870716964161696`", ",", 
         "0.26752375873967155`", ",", "0.45329804507470817`", ",", 
         "0.9919857720978529`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.5554056934861499`", ",", 
         "0.47412333200322043`", ",", "0.9194558429787535`", ",", 
         "0.5657592372985508`", ",", "0.7486690781917029`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5807259124689139`", ",", 
         "0.311949768469556`", ",", "0.7967048428862404`", ",", 
         "0.9773821582134252`", ",", "0.36207411586320337`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.029455997267088738`", ",", 
         "0.5163817121253564`", ",", "0.4803319630186656`", ",", 
         "0.46424923097855736`", ",", "0.854184248278839`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7921358167519885`", ",", 
         "0.3274021551151481`", ",", "0.008844941995295818`", ",", 
         "0.8530768360226793`", ",", "0.20535572389589465`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.04033045869897852`", ",", 
         "0.7413211832556242`", ",", "0.39977879094797103`", ",", 
         "0.21336995179804177`", ",", "0.4849247652128287`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2671978512524038`", ",", 
         "0.48032294796921754`", ",", "0.647610714499491`", ",", 
         "0.7362556870211258`", ",", "0.6864719387834899`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.16837317949966152`", ",", 
         "0.8509058716132506`", ",", "0.7588735288077004`", ",", 
         "0.3243978229202865`", ",", "0.13891718223257277`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.3345241594878942`", ",", 
         "0.27854156578903483`", ",", "0.8601485919417291`", ",", 
         "0.28473293395373384`", ",", "0.5423883427359056`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9511394106738867`", ",", 
         "0.8513036499464334`", ",", "0.43165609793105464`", ",", 
         "0.33703261884001096`", ",", "0.9108089519749082`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.10998246669080908`", ",", 
         "0.0318773069830836`", ",", "0.12366266704196918`", ",", 
         "0.42588418676207956`", ",", "0.8427846154384052`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5515543590138661`", ",", 
         "0.4760519525424782`", ",", "0.6896284997409539`", ",", 
         "0.15631267665491536`", ",", "0.38318117951420455`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6251460809292275`", ",", 
         "0.9307549709332534`", ",", "0.8319148537346288`", ",", 
         "0.24426399728163178`", ",", "0.29062192144133336`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6522134051442185`", ",", 
         "0.9717662617928997`", ",", "0.959531063327898`", ",", 
         "0.7482335787054277`", ",", "0.7010739944703318`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.12046261184646635`", ",", 
         "0.5278749653968433`", ",", "0.41120095986541677`", ",", 
         "0.7902650424954236`", ",", "0.010480145155657275`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.49599765841375976`", ",", 
         "0.2875382928234476`", ",", "0.36438085573334406`", ",", 
         "0.16769552971725202`", ",", "0.9444432993998937`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8114863402809694`", ",", 
         "0.6747523559923903`", ",", "0.011382853062336646`", ",", 
         "0.5612621198856891`", ",", "0.18634025935174187`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.7439973850591368`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00031066944825161136`", ",", "0.04177789226494566`", ",", 
       "0.009276607089889387`", ",", "0.9390320671358212`", ",", 
       "0.009602764061092096`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.1794679993277078`", ",", "0.3169981226040573`", ",", 
         "0.8957183379104086`", ",", "0.09178397991491825`", ",", 
         "0.2077017375348081`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.35746705927615935`", ",", 
         "0.14748475920498078`", ",", "0.3907099854445864`", ",", 
         "0.08723912568834176`", ",", "0.829592093879316`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.736283799339564`", ",", 
         "0.6004449429491628`", ",", "0.07675898053268448`", ",", 
         "0.3335944354655563`", ",", "0.4487455065161164`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.23606408721581873`", ",", 
         "0.9090634508154325`", ",", "0.3891511360656626`", ",", 
         "0.637259166235147`", ",", "0.5613117312234285`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8976805977530958`", ",", 
         "0.8278890161799736`", ",", "0.4509189068834051`", ",", 
         "0.8173143461642917`", ",", "0.718212598425388`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5108908935759162`", ",", 
         "0.5552005689729966`", ",", "0.7255303662493734`", ",", 
         "0.51051086089058`", ",", "0.15342383429975687`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4077158097680158`", ",", 
         "0.334820380804787`", ",", "0.42327173520223815`", ",", 
         "0.3238317404204409`", ",", "0.6714320104284518`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7343754378556242`", ",", 
         "0.34651275466955367`", ",", "0.9902373049548846`", ",", 
         "0.22268650391233544`", ",", "0.4983113506398055`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4374493038541212`", ",", 
         "0.601086168889222`", ",", "0.5854273376771885`", ",", 
         "0.936999619416377`", ",", "0.5397687061010253`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.7731971527092485`", ",", 
         "0.13450843079378338`", ",", "0.11968527325208533`", ",", 
         "0.8215561076756374`", ",", "0.2623062591333322`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5793078618207868`", ",", 
         "0.3941549070027119`", ",", "0.3110452467850574`", ",", 
         "0.10888242483357535`", ",", "0.171592052052771`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.0593345261979249`", ",", 
         "0.8877735115828193`", ",", "0.7850506844131345`", ",", 
         "0.5001600416243192`", ",", "0.3249590883423007`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5412607569132656`", ",", 
         "0.7948133794582499`", ",", "0.27747353771198374`", ",", 
         "0.8266477377024952`", ",", "0.10381145305914444`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.19372721056902792`", ",", 
         "0.6920462000347952`", ",", "0.8896481182861182`", ",", 
         "0.5640427469581191`", ",", "0.4205300578597795`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5575377692410118`", ",", 
         "0.7699628450340329`", ",", "0.7424866392824817`", ",", 
         "0.15822379872644726`", ",", "0.9782299074202251`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.37580793803132095`", ",", 
         "0.4314413924974243`", ",", "0.0493413738928719`", ",", 
         "0.806637855367454`", ",", "0.31647341183339606`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.543667880914605`", ",", 
         "0.26429068947973744`", ",", "0.30647781374313493`", ",", 
         "0.9915143234910954`", ",", "0.0024071240013394017`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.4694773100214875`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.0009864062732647108`", ",", "0.18497279053503943`", ",", 
       "0.7886147969033851`", ",", "0.011591301075230374`", ",", 
       "0.013834705213080382`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.029004276031151167`", ",", "0.1648665857886002`", ",", 
         "0.898595670942195`", ",", "0.2757500994524596`", ",", 
         "0.3369580759963559`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.275218467502482`", ",", 
         "0.3345529239840759`", ",", "0.8552200415926802`", ",", 
         "0.779420306755344`", ",", "0.5052556224684491`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5920662847015942`", ",", 
         "0.6969962428662329`", ",", "0.8011903993351189`", ",", 
         "0.1294476844371282`", ",", "0.1606248922041698`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.647654868973361`", ",", 
         "0.9945525439676649`", ",", "0.8129742726037321`", ",", 
         "0.6169570112895648`", ",", "0.38336417949362356`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6880747302245299`", ",", 
         "0.8214599491126368`", ",", "0.6145498872882253`", ",", 
         "0.913886869472136`", ",", "0.6590704541933788`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6565933633240366`", ",", 
         "0.7159542163460304`", ",", "0.6381367700196764`", ",", 
         "0.3221123781970229`", ",", "0.3813748958215546`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.3814012923619545`", ",", 
         "0.7829167284269963`", ",", "0.5426920714416789`", ",", 
         "0.8761192733531055`", ",", "0.7893350076603605`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.08592048556076344`", ",", 
         "0.7415016721065599`", ",", "0.7466715889159773`", ",", 
         "0.6287101154561906`", ",", "0.4382656165874025`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.746949128138895`", ",", 
         "0.9336973163122451`", ",", "0.011753104166625821`", ",", 
         "0.05490143709377894`", ",", "0.058874397914365086`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.1122373671996083`", ",", 
         "0.39720321687840043`", ",", "0.14101456762164294`", ",", 
         "0.39980394372098627`", ",", "0.4556440038755717`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.68124900053237`", ",", 
         "0.5028777976019665`", ",", "0.07769156552396339`", ",", 
         "0.07426910805401711`", ",", "0.29984770817041545`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7199610691749703`", ",", 
         "0.5349994940822845`", ",", "0.19814983470091166`", ",", 
         "0.510512700510055`", ",", "0.6340405836142068`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7934978219757246`", ",", 
         "0.4514782457849344`", ",", "0.8818025850538644`", ",", 
         "0.1957749670268043`", ",", "0.04654869383682956`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5177809294726893`", ",", 
         "0.8700494808872387`", ",", "0.14087352993302538`", ",", 
         "0.9876742959224645`", ",", "0.40554356227308097`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.47284626400883817`", ",", 
         "0.9998589623113824`", ",", "0.5878703522014782`", ",", 
         "0.9498995583975093`", ",", "0.7915972634764682`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.49698116470941595`", ",", 
         "0.5101787866775148`", ",", "0.8756304503434922`", ",", 
         "0.4917495553060527`", ",", "0.7770200955344457`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9751792925952303`", ",", 
         "0.6774806156425806`", ",", "0.9812368547959976`", ",", 
         "0.14297951192023892`", ",", "0.18168147061950565`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.22600236985764613`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00790623492721841`", ",", "0.0007350518138963894`", ",", 
       "0.04530769909571383`", ",", "0.01215116816255672`", ",", 
       "0.9338998460006146`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.0994342697421332`", ",", "0.9472045448934346`", ",", 
         "0.1351327767826761`", ",", "0.7082214403849568`", ",", 
         "0.22938478885489458`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.8063310149604093`", ",", 
         "0.14745848086021163`", ",", "0.30267787811187585`", ",", 
         "0.7565385248460564`", ",", "0.8064720526490268`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5595881286587334`", ",", 
         "0.3527783197143666`", ",", "0.9649412613695882`", ",", 
         "0.3094908879396109`", ",", "0.04940934198121864`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4771478693708744`", ",", 
         "0.4731917060635355`", ",", "0.5324707924051651`", ",", 
         "0.07423004938598836`", ",", "0.7996672537282938`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4919548512675379`", ",", 
         "0.38949128048492626`", ",", "0.8925485787664827`", ",", 
         "0.5736648838706477`", ",", "0.3925205815254047`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.4422867355914917`", ",", 
         "0.7574158019838066`", ",", "0.8654434434856909`", ",", 
         "0.16313579267051012`", ",", "0.6359557206310824`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.609957321123595`", ",", 
         "0.5627655653738151`", ",", "0.4065972678244537`", ",", 
         "0.8294836679820556`", ",", "0.05036919246486154`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.20998724565944854`", ",", 
         "0.4416560064548655`", ",", "0.5199927800424448`", ",", 
         "0.0009598504836429065`", ",", "0.7328393762885742`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.96846430039133`", ",", 
         "0.9875219876372795`", ",", "0.9267298010976546`", ",", 
         "0.9331721225602804`", ",", "0.4765094491237921`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5980307071523533`", ",", 
         "0.034181222331171844`", ",", "0.3595072386896326`", ",", 
         "0.08398886759838742`", ",", "0.1557439715608616`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.27676542034736523`", ",", 
         "0.49406379520394167`", ",", "0.9208530749278773`", ",", 
         "0.5197882509297792`", ",", "0.6668080992237703`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9312982298301266`", ",", 
         "0.5142558071034236`", ",", "0.6903045829477236`", ",", 
         "0.6164389067589088`", ",", "0.721310984170678`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.07259980064855806`", ",", 
         "0.17031180290527886`", ",", "0.6154790562752658`", ",", 
         "0.9884716078821039`", ",", "0.10413550025722808`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.18278981526799934`", ",", 
         "0.6887492551776113`", ",", "0.05529948532182352`", ",", 
         "0.627626051133436`", ",", "0.5847591081156461`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6545680328464395`", ",", 
         "0.695792246632191`", ",", "0.5436371835350485`", ",", 
         "0.4290151365547845`", ",", "0.3778026124990742`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2017284514282493`", ",", 
         "0.6227841086071713`", ",", "0.9092268856250053`", ",", 
         "0.7109945132753039`", ",", "0.27043022159812274`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.10852830150374768`", ",", 
         "0.21892230267728172`", ",", "0.09455560651639518`", ",", 
         "0.5491192374274447`", ",", "0.035928500855189616`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.04861049977200284`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.003502043318164153`", ",", "0.3900035877315426`", ",", 
       "0.023114886580215797`", ",", "0.19311439304646716`", ",", 
       "0.3902650893236103`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.47907655024112933`", ",", "0.5606476295453409`", ",", 
         "0.9317930005979616`", ",", "0.8658206845040035`", ",", 
         "0.7903272950635181`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.5053481442235174`", ",", 
         "0.30416694946452555`", ",", "0.2810615763883574`", ",", 
         "0.1357592622170786`", ",", "0.8095558975913264`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7605297659294771`", ",", 
         "0.8520464398335729`", ",", "0.7579566497180045`", ",", 
         "0.6078274461630772`", ",", "0.1377456573223058`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9428195542085677`", ",", 
         "0.04696213644270051`", ",", "0.3373972245649544`", ",", 
         "0.029217355818558097`", ",", "0.7238972515312859`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9524065299263054`", ",", 
         "0.7882779871375096`", ",", "0.9932888549633685`", ",", 
         "0.6752867517592831`", ",", "0.473329979685176`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.2276303575921688`", ",", 
         "0.061495854365406936`", ",", "0.8094660672552796`", ",", 
         "0.6830026846216579`", ",", "0.7222822133686514`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7573289049008813`", ",", 
         "0.5284044908669222`", ",", "0.5472434224045793`", ",", 
         "0.912726315777325`", ",", "0.9967991389714044`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6763580510333492`", ",", 
         "0.7892867726865749`", ",", "0.3048988696142479`", ",", 
         "0.8590534816490986`", ",", "0.7335384968247817`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7423246362438745`", ",", 
         "0.9675016450492935`", ",", "0.8298361258305404`", ",", 
         "0.009641245293495724`", ",", "0.7899181063175691`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.17922365791178385`", ",", 
         "0.836547270867172`", ",", "0.33435449353421265`", ",", 
         "0.31658812663239305`", ",", "0.9515933003196151`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.775051416501765`", ",", 
         "0.5248884262789331`", ",", "0.6335854420107351`", ",", 
         "0.22931108695096364`", ",", "0.017722511600883683`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.996483935412011`", ",", 
         "0.08634201960615577`", ",", "0.31658477117363865`", ",", 
         "0.020923372629479343`", ",", "0.3201258843786617`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.29705524691958085`", ",", 
         "0.011685901559390722`", ",", "0.16186989098038077`", ",", 
         "0.5865873875538801`", ",", "0.5547306106757064`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.04418425651009721`", ",", 
         "0.3320337651498403`", ",", "0.5769461422603843`", ",", 
         "0.7648125043581374`", ",", "0.8649605985983133`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.49548649428266833`", ",", 
         "0.24259164872617167`", ",", "0.4482243777257443`", ",", 
         "0.9133672982786983`", ",", "0.7204350777809033`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7177032224472386`", ",", 
         "0.8146389357150092`", ",", "0.6840562113277346`", ",", 
         "0.7027125661800195`", ",", "0.7212192870352276`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7282969161088534`", ",", 
         "0.36747144015409605`", ",", "0.6817891935505402`", ",", 
         "0.40109340265656596`", ",", "0.43124166918927254`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.3557855385947053`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00252397438066133`", ",", "0.0001774462419361248`", ",", 
       "0.10312439748430592`", ",", "0.0048273687784663125`", ",", 
       "0.8893468131146303`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5199193025701595`", ",", "0.8145060151026858`", ",", 
         "0.8765110585135661`", ",", "0.31160128208460813`", ",", 
         "0.18788553742031916`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.2375598728423015`", ",", 
         "0.11169855415542874`", ",", "0.44664068348629477`", ",", 
         "0.6923990431376509`", ",", "0.9949682241161298`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6634741764296844`", ",", 
         "0.5332733852075965`", ",", "0.9719639653567476`", ",", 
         "0.27726500166889123`", ",", "0.8488352407146753`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8492171738798617`", ",", 
         "0.26925139917672797`", ",", "0.5560457146336636`", ",", 
         "0.12053832460582188`", ",", "0.48174573372576573`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5874622056261877`", ",", 
         "0.15495231197709766`", ",", "0.6892966554165494`", ",", 
         "0.12596019513106044`", ",", "0.06754290305602824`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.3404462968744118`", ",", 
         "0.8127855969029832`", ",", "0.8143589130464524`", ",", 
         "0.8796573656357091`", ",", "0.10288642403211026`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7010870427475545`", ",", 
         "0.36771822956015754`", ",", "0.18725832249805824`", ",", 
         "0.10791819991598042`", ",", "0.037612866317870045`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8344448443525612`", ",", 
         "0.21529435714131068`", ",", "0.8306531982470892`", ",", 
         "0.18877762560319478`", ",", "0.9852276704726993`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9460429579645827`", ",", 
         "0.2746074836134256`", ",", "0.06823930099737288`", ",", 
         "0.5034819367469335`", ",", "0.358580752338395`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.1196551716363279`", ",", 
         "0.3789426455808236`", ",", "0.37752174161587315`", ",", 
         "0.29103784928236676`", ",", "0.7792088747619161`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5661570486778403`", ",", 
         "0.5631628285694209`", ",", "0.4113804836466577`", ",", 
         "0.6763224507298058`", ",", "0.8650700059302858`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.19544459900926328`", ",", 
         "0.22412216114859942`", ",", "0.5684042508138254`", ",", 
         "0.8274571396124157`", ",", "0.36099975465670214`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.008827804007288742`", ",", 
         "0.7377510525667362`", ",", "0.6386795140092211`", ",", 
         "0.3757720841840028`", ",", "0.06278484604270604`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.46314356895331066`", ",", 
         "0.5704402130118481`", ",", "0.8722901474370692`", ",", 
         "0.704204093704311`", ",", "0.3434883973169828`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.19149756743102458`", ",", 
         "0.4947684058211961`", ",", "0.4131662444219443`", ",", 
         "0.5642795225550666`", ",", "0.6253405187531843`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9316055772517753`", ",", 
         "0.0017857607752866345`", ",", "0.8879570718252608`", ",", 
         "0.7602705128228985`", ",", "0.7361609782425119`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7776635996266872`", ",", 
         "0.31955282101143545`", ",", "0.9328133732104826`", ",", 
         "0.3751612235858098`", ",", "0.7688357956193985`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.5818017684446992`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.000015529491178912342`", ",", "0.00014233418050891243`", ",", 
       "0.017281381786440203`", ",", "0.0015231519849175836`", ",", 
       "0.9810376025569546`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.2941338592012616`", ",", "0.999389139401807`", ",", 
         "0.7060509495766925`", ",", "0.11865819949138855`", ",", 
         "0.7236936461894135`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.1270989919647377`", ",", 
         "0.0018468558723813938`", ",", "0.7751698021744058`", ",", 
         "0.5321960787583889`", ",", "0.6323305861435417`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.588680611450437`", ",", 
         "0.2108902796193391`", ",", "0.9068555600052046`", ",", 
         "0.7007250088917664`", ",", "0.5868948506751505`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.32293320779407825`", ",", 
         "0.1465850471823062`", ",", "0.9645640306492544`", ",", 
         "0.8092312510484633`", ",", "0.003380386782642791`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.21377167397182353`", ",", 
         "0.5894028070634446`", ",", "0.04039545542906478`", ",", 
         "0.4215786183379436`", ",", "0.919637814770562`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5900136676616378`", ",", 
         "0.33434450585237235`", ",", "0.302920418846555`", ",", 
         "0.19594416858114844`", ",", "0.46291467569690004`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.33249764997999093`", ",", 
         "0.5277506166721493`", ",", "0.6637480898227596`", ",", 
         "0.8305840895533584`", ",", "0.7438170385295538`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.31686033705281014`", ",", 
         "0.756892529817555`", ",", "0.12985908066159202`", ",", 
         "0.1569221878544034`", ",", "0.993927129258732`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6103074826352487`", ",", 
         "0.16529505001233757`", ",", "0.34769093680594015`", ",", 
         "0.9905467424760891`", ",", "0.3965358086634252`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.575892242948893`", ",", 
         "0.30729548137687535`", ",", "0.5689681241381456`", ",", 
         "0.47689799389286325`", ",", "0.9858785752872552`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.972950975524503`", ",", 
         "0.26604770529159055`", ",", "0.2809538253117148`", ",", 
         "0.5229638995903552`", ",", "0.6404533255445121`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7382970886194413`", ",", 
         "0.6172057354889553`", ",", "0.6923798100369968`", ",", 
         "0.8966362870149582`", ",", "0.42143675156663113`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8603132056714003`", ",", 
         "0.5625207293754048`", ",", "0.7397140991605549`", ",", 
         "0.4275096223078992`", ",", "0.2500057230361516`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.3972256793630672`", ",", 
         "0.3920231623546147`", ",", "0.4369628798318101`", ",", 
         "0.8534699143727265`", ",", "0.8213334364141743`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.08472768097773933`", ",", 
         "0.8679947556936645`", ",", "0.37657192047986315`", ",", 
         "0.8354548611269191`", ",", "0.1117767054532363`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.601947050402074`", ",", 
         "0.09561809516814834`", ",", "0.3124909615365639`", ",", 
         "0.47132337990872425`", ",", "0.8636499617826326`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4784123596791931`", ",", 
         "0.6201111514995671`", ",", "0.574687092893766`", ",", 
         "0.4422132102160016`", ",", "0.6180991540077927`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.057590422124162356`"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "0.005637720082886334`", ",", "0.944460843514506`", ",", 
       "0.0006400230351054946`", ",", "0.00027273941712246193`", ",", 
       "0.04898867395038001`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8349729937332112`", ",", "0.01470358790810237`", ",", 
         "0.36809343097164116`", ",", "0.6603647427610951`", ",", 
         "0.44294983137859645`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.5777407080762923`", ",", 
         "0.5146235165989147`", ",", "0.8390313063469209`", ",", 
         "0.35822215040085714`", ",", "0.7097459523826277`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.13805159611905157`", ",", 
         "0.003576445220001767`", ",", "0.24644544494762083`", ",", 
         "0.10779890198055378`", ",", "0.04243350095090323`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6910854836834378`", ",", 
         "0.7751220650388966`", ",", "0.24414894019792108`", ",", 
         "0.5640211412717101`", ",", "0.07097433218387073`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2004349721451306`", ",", 
         "0.8019357299819195`", ",", "0.9459219872639174`", ",", 
         "0.01338391005970837`", ",", "0.36546197841191946`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.7872321420738171`", ",", 
         "0.5778285562922763`", ",", "0.3530191672986132`", ",", 
         "0.922512147033323`", ",", "0.20949143399752485`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.06320503969336155`", ",", 
         "0.5139878609516924`", ",", "0.5642899966324658`", ",", 
         "0.49974548161489707`", ",", "0.92515344357431`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5104114157316906`", ",", 
         "0.317844551684845`", ",", "0.39194657963434326`", ",", 
         "0.8827199426234068`", ",", "0.8193259320482528`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5427224866459484`", ",", 
         "0.1477976394364222`", ",", "0.3186988013516966`", ",", 
         "0.748351599864382`", ",", "0.3422875145008178`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.3458619094545027`", ",", 
         "0.3727768140877792`", ",", "0.7349676898046736`", ",", 
         "0.9768255360888983`", ",", "0.5586297673806856`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7949482577955029`", ",", 
         "0.38194852250606043`", ",", "0.054313389055575395`", ",", 
         "0.3491383333831607`", ",", "0.7317432181021414`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.867960661554368`", ",", 
         "0.49002339242310955`", ",", "0.8493928517682636`", ",", 
         "0.8065897745278314`", ",", "0.3575492458226775`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.17217884073826456`", ",", 
         "0.45744627213392036`", ",", "0.9238698319044246`", ",", 
         "0.5382233137744248`", ",", "0.6294563540923162`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.30964863269749815`", ",", 
         "0.605171030552728`", ",", "0.7898717139100427`", ",", 
         "0.2871688395914983`", ",", "0.9637867232429954`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.23239421646494884`", ",", 
         "0.05490402410536909`", ",", "0.3103433035026`", ",", 
         "0.4051569558623099`", ",", "0.4374459586694459`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6729555015993087`", ",", 
         "0.25602991444702455`", ",", "0.05601862247914919`", ",", 
         "0.7057027405673045`", ",", "0.8049948400449406`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.766006522023915`", ",", 
         "0.20662577071088556`", ",", "0.8991129660394732`", ",", 
         "0.44744559422226315`", ",", "0.5938276812856504`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.7491794985769652`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.00010301676466574215`", ",", "0.0003171829294829277`", ",", 
       "3.901098066518669`*^-6", ",", "0.7815398831729633`", ",", 
       "0.21803601603482148`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9752431341350485`", ",", "0.9092222804478384`", ",", 
         "0.9643713271933343`", ",", "0.43953086587946705`", ",", 
         "0.3700721035823205`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.11935056653779566`", ",", 
         "0.677202487601836`", ",", "0.4757441426364716`", ",", 
         "0.13767788711737164`", ",", "0.06444654243242658`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.366859184099236`", ",", 
         "0.0705871867741617`", ",", "0.7002319284479257`", ",", 
         "0.3914910408331179`", ",", "0.11082926965221146`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.014568564295012514`", ",", 
         "0.9945291878806212`", ",", "0.5864962007881773`", ",", 
         "0.34482274762829646`", ",", "0.8079427935841269`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.09541622184114801`", ",", 
         "0.13905060656591417`", ",", "0.750995066342646`", ",", 
         "0.05876329500716176`", ",", "0.12017308770609948`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.22982832611807577`", ",", 
         "0.7866237391493117`", ",", "0.6192324291276947`", ",", 
         "0.750100984123779`", ",", "0.11047775958028011`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.10942125154747571`", ",", 
         "0.14348828649122308`", ",", "0.6124230970064074`", ",", 
         "0.046031217147853534`", ",", "0.7425620674482397`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.0729010997170614`", ",", 
         "0.9121911685584816`", ",", "0.6545401763147356`", ",", 
         "0.6317327977960282`", ",", "0.05833253542204888`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9176619806778604`", ",", 
         "0.06804397552655833`", ",", "0.2869100501677318`", ",", 
         "0.2503897418379219`", ",", "0.8222457588367125`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9289933689606442`", ",", 
         "0.5359149838250857`", ",", "0.19162644683076016`", ",", 
         "0.702072671130613`", ",", "0.6991650428425684`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7492912446757741`", ",", 
         "0.5723940177030654`", ",", "0.951971687006834`", ",", 
         "0.5886872832622883`", ",", "0.6398699931282984`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4289057312118424`", ",", 
         "0.33954859000042664`", ",", "0.5426560661144347`", ",", 
         "0.8973079256800587`", ",", "0.35600463149478095`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.427357421441945`", ",", 
         "0.8881158897996991`", ",", "0.2655751278840304`", ",", 
         "0.2976720960727321`", ",", "0.5096954407640846`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.8200719142731407`", ",", 
         "0.9786650777162986`", ",", "0.047282354234810184`", ",", 
         "0.6874496819273721`", ",", "0.8910785453124966`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4427500938912129`", ",", 
         "0.8556559074040501`", ",", "0.9853770107967591`", ",", 
         "0.19191350246992822`", ",", "0.6934588492154389`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.28326188970098454`", ",", 
         "0.03340532378992514`", ",", "0.60322621920764`", ",", 
         "0.05358885608714045`", ",", "0.8543561584891421`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6938567337894985`", ",", 
         "0.06057015309320516`", ",", "0.15628093040708177`", ",", 
         "0.4983515269943612`", ",", "0.26649931234755353`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.17245426329350605`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "0.819479953311288`", ",", "0.04023089343182709`", ",", 
       "0.13573944319127115`", ",", "0.0027642258586780357`", ",", 
       "0.0017854842069357502`"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.529259591547097*^9, 3.529261464241932*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Qfunc", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "qfunc", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"qfunc", "[", 
    RowBox[{
    "\[Alpha]_", ",", " ", "log\[Beta]_", ",", " ", "pz_", ",", " ", "d_", 
     ",", " ", "plog\[Beta]_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q", " ", "=", " ", "0"}], ",", " ", "x", ",", " ", "y", ",", 
       " ", "z", ",", " ", "worker", ",", " ", "rating"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"y", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "pz", "]"}]}], ",", " ", 
        RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
        RowBox[{"q", " ", "-=", " ", 
         RowBox[{
          RowBox[{"pz", "[", 
           RowBox[{"[", "y", "]"}], "]"}], " ", 
          RowBox[{"Log", "[", 
           RowBox[{"pz", "[", 
            RowBox[{"[", "y", "]"}], "]"}], "]"}]}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "d", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"worker", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"rating", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
           RowBox[{"y", " ", "\[LessEqual]", " ", 
            RowBox[{"Length", "[", "pz", "]"}]}], ",", " ", 
           RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
           RowBox[{"q", " ", "+=", " ", 
            RowBox[{
             RowBox[{"pz", "[", 
              RowBox[{"[", "y", "]"}], "]"}], 
             RowBox[{"logprating", "[", 
              RowBox[{"rating", ",", " ", 
               RowBox[{
                RowBox[{"\[Alpha]", "[", 
                 RowBox[{"[", "worker", "]"}], "]"}], "[", 
                RowBox[{"[", "y", "]"}], "]"}], ",", " ", "log\[Beta]"}], 
              "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"q", " ", "+=", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"PDF", "[", 
         RowBox[{"plog\[Beta]", ",", " ", "log\[Beta]"}], "]"}], "]"}]}], ";",
       "\[IndentingNewLine]", "q"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.52509805187827*^9, 3.5250981228168383`*^9}, {
   3.5250986446163893`*^9, 3.525098645902792*^9}, 3.525113409225976*^9, {
   3.5251950902408648`*^9, 3.525195099041606*^9}, {3.52926679808908*^9, 
   3.529266812280629*^9}, {3.529266842500064*^9, 3.5292668590954447`*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for qfunc", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"qfunc", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], " ", 
         "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
         
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], " ", "/@", 
          " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", " ", 
         RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], 
        RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        "]"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"qfunc", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], " ", 
            "\[IndentingNewLine]", "\[Tau]", ",", " ", 
            RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
            RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"1", "+", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
                RowBox[{"1", "+", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], " ", "/@",
              " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", " ", 
            RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], 
           RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], 
           "\[IndentingNewLine]", "]"}], ",", " ", "\[Tau]"}], "]"}], " ", "/.",
         " ", 
        RowBox[{"\[Tau]", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"qfunc", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], " ", 
            "\[IndentingNewLine]", "\[Tau]", ",", " ", 
            RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
            RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"1", "+", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
                RowBox[{"1", "+", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], " ", "/@",
              " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", " ", 
            RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], 
           RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], 
           "\[IndentingNewLine]", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"\[Tau]", ",", " ", "2"}], " ", "}"}]}], "]"}], " ", "/.", 
        " ", 
        RowBox[{"\[Tau]", " ", "\[Rule]", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}]}], "}"}], "&"}], " ", "/@",
   " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"i", " ", "\[Equal]", " ", "j"}], ",", " ", 
              RowBox[{"-", "1.0"}], ",", " ", 
              RowBox[{"Random", "[", "]"}]}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
           "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"j", ",", " ", "1", ",", " ", "nlabels"}], "}"}]}], "]"}], 
        ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", " ", 
      RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], " ", "\[IndentingNewLine]", 
      
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"plog\[Beta]", " ", "mean"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"plog\[Beta]", " ", "stddev"}], " ", "*)"}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5225087101361237`*^9, 
   3.5225087373476753`*^9}, 3.522508813648283*^9, 3.522508907576902*^9, {
   3.525098383468699*^9, 3.52509862029265*^9}, {3.525098692413507*^9, 
   3.525098693786191*^9}, 3.525100060166502*^9, {3.5251950456942043`*^9, 
   3.525195083600745*^9}, {3.525204603911459*^9, 3.525204604155924*^9}, {
   3.525631799168182*^9, 3.525631847658193*^9}, 3.525631966956129*^9, 
   3.525632217682148*^9, 3.525633418719947*^9, {3.525633628277866*^9, 
   3.52563363274115*^9}, 3.525633792439015*^9, {3.5292670115156107`*^9, 
   3.5292670974683*^9}, 3.5292676407289667`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.9471732313330631`", ",", 
         "0.9149367720437311`", ",", "0.20260192614606057`", ",", 
         "0.33958768290875807`", ",", "0.9935129137604078`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.524504093075197`", ",", 
         "0.8824544862693787`", ",", "0.15206605448188612`", ",", 
         "0.5944845379465202`", ",", "0.8465591733643676`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.911472892595575`", ",", 
         "0.5289526444982199`", ",", "0.9868726360153254`", ",", 
         "0.57340692642141`", ",", "0.025599397431854635`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8507939400424038`", ",", 
         "0.8767523710062883`", ",", "0.6950934350392602`", ",", 
         "0.04475343194476059`", ",", "0.7675267294370232`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.7460306876589752`", ",", 
         "0.21614406159263852`", ",", "0.8394262823702484`", ",", 
         "0.5952518830349633`", ",", "0.7988574563259121`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.30120728954890746`", ",", 
         "0.6368243562241879`", ",", "0.2556642001262052`", ",", 
         "0.8053445425655041`", ",", "0.7767031964737104`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7543698699548091`", ",", 
         "0.1035981456443191`", ",", "0.21086000461898394`", ",", 
         "0.9301440231093427`", ",", "0.8428969773592342`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5746455011460992`", ",", 
         "0.22398736860365856`", ",", "0.35673709668793274`", ",", 
         "0.8172975799273795`", ",", "0.7238515611036954`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.34723499759737014`", ",", 
         "0.6616436616486725`", ",", "0.772544147982619`", ",", 
         "0.9563248316666723`", ",", "0.601204309938395`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.44549960005603395`", ",", 
         "0.9331178656123705`", ",", "0.36107294863170897`", ",", 
         "0.8023468536124829`", ",", "0.14429231050712654`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2962935093881826`", ",", 
         "0.10540874850550377`", ",", "0.9970023110469788`", ",", 
         "0.3675891140334161`", ",", "0.5419236394333734`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.0018106028611846725`", ",", 
         "0.7861423064279949`", ",", "0.4374450909240733`", ",", 
         "0.6990266620741392`", ",", "0.4271651017150854`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5621549378243363`", ",", 
         "0.08070799423614058`", ",", "0.8817290821467597`", ",", 
         "0.70331354061139`", ",", "0.21491994022696617`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.41906433258746806`", ",", 
         "0.10918493416414075`", ",", "0.7469887089447177`", ",", 
         "0.6137156302885711`", ",", "0.973564732531434`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.17606706855177026`", ",", 
         "0.3859157603130087`", ",", "0.8113687766760882`", ",", 
         "0.8292724220243075`", ",", "0.8797735591635877`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.280507011807505`", ",", 
         "0.8143664656291094`", ",", "0.46168330799089147`", ",", 
         "0.3378499197302143`", ",", "0.2786964089463203`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.028224159201114506`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.024238217066818127`", ",", "0.6388232576560751`", ",", 
         "0.8515313072312349`", ",", "0.4660692213767782`", ",", 
         "0.9435302228306776`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", "0.7570941755093153`",
        ",", "0.1482177666198449`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "54.774152625069824`"}], ",", "19.04278707565375`", ",", 
       RowBox[{"-", "74.011591728614`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.251149281149812`", ",", 
         "0.5244658902432094`", ",", "0.6479092413451746`", ",", 
         "0.4012290576751272`", ",", "0.6374336508612408`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5509011577117754`", ",", 
         "0.4718421727934043`", ",", "0.015313297362118446`", ",", 
         "0.8260648741851527`", ",", "0.7216287356874678`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5920686136298167`", ",", 
         "0.7348062855546135`", ",", "0.011698408556043306`", ",", 
         "0.25994542769657636`", ",", "0.2542186938996024`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.45610987660829316`", ",", 
         "0.9834742493549288`", ",", "0.23570721062975822`", ",", 
         "0.6153954362435273`", ",", "0.6045785693770583`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5174050279781506`", ",", 
         "0.2921769877990807`", ",", "0.858301260734212`", ",", 
         "0.4563608027572134`", ",", "0.2662557468283386`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7677110975558712`", ",", 
         "0.21039201938903745`", ",", "0.05513174508208621`", ",", 
         "0.6288220959670977`", ",", "0.21680993984409586`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7385498465956332`", ",", 
         "0.03981844771996776`", ",", "0.8027572217819451`", ",", 
         "0.49518120415662803`", ",", "0.1464812329658165`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.30501216216535426`", ",", 
         "0.7910588132259018`", ",", "0.2352357764600517`", ",", 
         "0.8922625390662141`", ",", "0.8489022855570612`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.807584563870973`", ",", 
         "0.9995285658302935`", ",", "0.2768671028226868`", ",", 
         "0.24432371618000281`", ",", "0.2901795358928223`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7073515780312128`", ",", 
         "0.41856584208847475`", ",", "0.7879629134227895`", ",", 
         "0.023923789064483725`", ",", "0.9396404804753415`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.20817382269943732`", ",", 
         "0.7328311683407032`", ",", "0.39510169309738596`", ",", 
         "0.7228305406312457`", ",", "0.4696239761038042`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6930127206207355`", ",", 
         "0.592344471315441`", ",", "0.2276493364746177`", ",", 
         "0.3231427431379877`", ",", "0.3880005584553812`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.8012856580895392`", ",", 
         "0.9924135600145659`", ",", "0.4308802040717735`", ",", 
         "0.53909827289832`", ",", "0.9937010942185662`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9928849941842725`", ",", 
         "0.15401310124908676`", ",", "0.29477455671831726`", ",", 
         "0.7035215583257439`", ",", "0.2855334161530597`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.735447259160612`", ",", 
         "0.5068116432955279`", ",", "0.6795977692612603`", ",", 
         "0.3458929356777181`", ",", "0.5272734364611746`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7739804749548246`", ",", 
         "0.28449607616387423`", ",", "0.6230623950464724`", ",", 
         "0.05764946035737049`", ",", "0.08096775433408915`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.6921516048484333`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3954130585718547`", ",", "0.7345067172193828`", ",", 
         "0.692967195878708`", ",", "0.8908659467588941`", ",", 
         "0.4029994985572887`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.30362651314760924`", ",", "0.15386892298038793`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "62.45330231368303`"}], ",", 
       RowBox[{"-", "60.493068294833556`"}], ",", 
       RowBox[{"-", "115.4732167489324`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.8971648525403279`", ",", 
         "0.4101145043730162`", ",", "0.1496134118985225`", ",", 
         "0.8590943662620707`", ",", "0.19364329421458387`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.12458108821995655`", ",", 
         "0.4141661527379105`", ",", "0.35228272296654284`", ",", 
         "0.5140455249533237`", ",", "0.7786881525422384`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8868927162767358`", ",", 
         "0.5783022480117183`", ",", "0.22954944878944944`", ",", 
         "0.15562575749576602`", ",", "0.8292432559193653`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4973344936776291`", ",", 
         "0.5373978439410162`", ",", "0.7602126989239113`", ",", 
         "0.09473653869998254`", ",", "0.8043672977989211`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6465318971821221`", ",", 
         "0.3572132003666226`", ",", "0.7911100255523733`", ",", 
         "0.6504983748185332`", ",", "0.7493670446417943`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9470986959936063`", ",", 
         "0.6414966136538508`", ",", "0.7914040085564625`", ",", 
         "0.5557237504272105`", ",", "0.8225176077736498`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.22733046091594028`", ",", 
         "0.4391212855899197`", ",", "0.041678225473886735`", ",", 
         "0.04382945523141135`", ",", "0.34043774463920445`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8608190375782014`", ",", 
         "0.8121287766844373`", ",", "0.8882036977356453`", ",", 
         "0.5111944887198391`", ",", "0.36348454390057233`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.2747309327434211`", ",", 
         "0.127990998811734`", ",", "0.4164579500198565`", ",", 
         "0.5591172461016511`", ",", "0.628199035561299`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7707777984451114`", ",", 
         "0.6253479244674832`", ",", "0.908618871283118`", ",", 
         "0.8788319909195047`", ",", "0.8236791024515051`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9838513108136324`", ",", 
         "0.11721486272665545`", ",", "0.3231082404922943`", ",", 
         "0.0011614946778553685`", ",", "0.7565208498976922`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6780935771367358`", ",", 
         "0.2814300150184076`", ",", "0.9573320394464441`", ",", 
         "0.41608310525848774`", ",", "0.8172745395585344`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.4693012383339703`", ",", 
         "0.0691283417107987`", ",", "0.9048886165386486`", ",", 
         "0.453789995657962`", ",", "0.1945703055905492`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9411373428990647`", ",", 
         "0.48843066651879213`", ",", "0.8946727495563108`", ",", 
         "0.5663712700292501`", ",", "0.1703595444539532`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8630827420513089`", ",", 
         "0.9860538782731929`", ",", "0.6875392791097454`", ",", 
         "0.3466804420024481`", ",", "0.8792314312376764`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8688390155465374`", ",", 
         "0.36443103861745113`", ",", "0.3455189473245927`", ",", 
         "0.1227105813399842`", ",", "0.19074543840980165`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.08300102359904353`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3881869078781487`", ",", "0.7066274760814965`", ",", 
         "0.37347089885126733`", ",", "0.6136997852650732`", ",", 
         "0.31905856616735`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}]}], "}"}], ",", "0.8017388595428478`",
        ",", "0.9196809031933053`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "34.889874739588`"}], ",", 
       RowBox[{"-", "10.14830656664717`"}], ",", 
       RowBox[{"-", "25.02710457699995`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.419129479674524`", ",", 
         "0.3779212232682853`", ",", "0.31330819302405566`", ",", 
         "0.025008153636994445`", ",", "0.8527582096452738`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2075616788143321`", ",", 
         "0.4502254509727468`", ",", "0.03895427536380159`", ",", 
         "0.16521893053552839`", ",", "0.860881236811884`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5709940197350705`", ",", 
         "0.17011525981726416`", ",", "0.8007878919180773`", ",", 
         "0.5153622894872913`", ",", "0.4482834383950862`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9793698214074625`", ",", 
         "0.7177868683190337`", ",", "0.1271753816091426`", ",", 
         "0.7416559623135898`", ",", "0.6058989225561953`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.10408708305396051`", ",", 
         "0.8081168154417926`", ",", "0.939917102770742`", ",", 
         "0.68621801936289`", ",", "0.6849576033794365`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4301955921735073`", ",", 
         "0.6266089097466863`", ",", "0.6612098657258955`", ",", 
         "0.8321993937341626`", ",", "0.22263391335917518`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.1763834587739395`", ",", 
         "0.6222555903620939`", ",", "0.6669804631986342`", ",", 
         "0.36175267654729115`", ",", "0.6053894390388691`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4521403305448297`", ",", 
         "0.866192571280557`", ",", "0.8463903870599999`", ",", 
         "0.15710600064378283`", ",", "0.4727705091373672`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.14840570296152328`", ",", 
         "0.7192150054508573`", ",", "0.41545003833019306`", ",", 
         "0.866871586581172`", ",", "0.044318619907562765`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9110981900090647`", ",", 
         "0.4755329355594511`", ",", "0.18065356721828205`", ",", 
         "0.35936101652812624`", ",", "0.48090259783555733`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8489240258127648`", ",", 
         "0.5194437014923866`", ",", "0.5271616227939636`", ",", 
         "0.2582686844763822`", ",", "0.6725405670388253`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8971881111302926`", ",", 
         "0.8601811595953294`", ",", "0.896516007929091`", ",", 
         "0.06715112799995625`", ",", "0.44504778058546296`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9939885883147723`", ",", 
         "0.05012562086909113`", ",", "0.9100451273561734`", ",", 
         "0.9722772714480957`", ",", "0.845582885353249`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.33091061541823386`", ",", 
         "0.4945950890259804`", ",", "0.10540568486692374`", ",", 
         "0.8012642654456863`", ",", "0.41981242540916924`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.019062153466529293`", ",", 
         "0.9247521176486417`", ",", "0.44190324891756`", ",", 
         "0.9389098275736119`", ",", "0.17013812765376451`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4053084161562551`", ",", 
         "0.9147416261235963`", ",", "0.6806411430972297`", ",", 
         "0.4975975606149392`", ",", "0.5081203050259625`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.05456046652826705`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7841251351681386`", ",", "0.430446432614983`", ",", 
         "0.06307252444049952`", ",", "0.06057187821349475`", ",", 
         "0.7339995142990475`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", "0.5204013052588096`",
        ",", "0.09079525299240379`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "42.58064916300928`"}], ",", "45.88031573354709`", ",", 
       RowBox[{"-", "142.35256222778122`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.21498899286024573`", ",", 
         "0.4030888988808137`", ",", "0.025806216232829204`", ",", 
         "0.9853895681254801`", ",", "0.4137247274145595`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9832764734716445`", ",", 
         "0.00674406276629991`", ",", "0.06063745047683836`", ",", 
         "0.9718214784969995`", ",", "0.04436664589803261`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8366059351125353`", ",", 
         "0.6553290343205832`", ",", "0.05707985237340314`", ",", 
         "0.3637255028008029`", ",", "0.3390083744975962`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.14720872929462078`", ",", 
         "0.0025193858451360903`", ",", "0.5796003676326642`", ",", 
         "0.9085619418826132`", ",", "0.08413620485412128`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9419475076316414`", ",", 
         "0.8456008533336167`", ",", "0.3881606366238036`", ",", 
         "0.9933409518617174`", ",", "0.7269585147713956`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.44251195445280295`", ",", 
         "0.36235442039097443`", ",", "0.007951383736237438`", ",", 
         "0.3132337873568361`", ",", "0.45923548098115846`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.3556103576246745`", ",", 
         "0.947313933259399`", ",", "0.3414123088598366`", ",", 
         "0.4148688350831259`", ",", "0.5190044225121391`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.29198489893881585`", ",", 
         "0.28433245648643346`", ",", "0.051143332282322956`", ",", 
         "0.17999604801454294`", ",", "0.14477616964419504`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.28181307064129735`", ",", 
         "0.4715429646496587`", ",", "0.27143410613192975`", ",", 
         "0.060639964790073754`", ",", "0.33986556300965604`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.625942111316042`", ",", 
         "0.8832734695081261`", ",", "0.06729901292835627`", ",", 
         "0.6129070482382604`", ",", "0.18343015686323916`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5209190491171517`", ",", 
         "0.05934762919211883`", ",", "0.2996732608814243`", ",", 
         "0.7241946758820806`", ",", "0.16530869149247723`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.11203369593271975`", ",", 
         "0.9582609520215877`", ",", "0.3093258407989548`", ",", 
         "0.6463042689803381`", ",", "0.8200487969939039`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6739284955351543`", ",", 
         "0.2581825085166318`", ",", "0.4663082209657952`", ",", 
         "0.6752726273497089`", ",", "0.3921154248938569`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7866395438669731`", ",", 
         "0.19487411483386544`", ",", "0.6146326625596351`", ",", 
         "0.05224986188420091`", ",", "0.16069743255093102`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.3116006453257393`", ",", 
         "0.5473336496312788`", ",", "0.43934281364594047`", ",", 
         "0.9772672756876919`", ",", "0.7906815962085876`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.48798602043916006`", ",", 
         "0.13966955276451617`", ",", "0.2530725998056112`", ",", 
         "0.6253729047161103`", ",", "0.3759523245064403`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.18140860074292844`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9437467590066564`", ",", "0.9790686357357722`", ",", 
         "0.5559035275125364`", ",", "0.5074801052077742`", ",", 
         "0.6855642504900246`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", "0.512760414769977`", 
       ",", "0.8806309001628275`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "55.581720498504595`"}], ",", 
       RowBox[{"-", "18.602042837283804`"}], ",", 
       RowBox[{"-", "40.67794787578262`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.11536468031391724`", ",", 
         "0.8989247066230515`", ",", "0.31788629993611156`", ",", 
         "0.26599823760319236`", ",", "0.06311481842971634`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7382272740721204`", ",", 
         "0.006285654610372263`", ",", "0.7186645879719135`", ",", 
         "0.6237720047837758`", ",", "0.7609599983844285`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.21560405840178473`", ",", 
         "0.2306785675327534`", ",", "0.48410245201925967`", ",", 
         "0.5078873985788174`", ",", "0.5902311536856745`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8547262430263131`", ",", 
         "0.3026938512763312`", ",", "0.564140639572161`", ",", 
         "0.6111625179499023`", ",", "0.29882271551377676`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.795213746068557`", ",", 
         "0.8785763890821364`", ",", "0.09840210317992529`", ",", 
         "0.4181918153509493`", ",", "0.6798490657546398`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.979651682459085`", ",", 
         "0.7805158032438138`", ",", "0.15219357774775694`", ",", 
         "0.6167342473249234`", ",", "0.24142440838696455`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7742301486334415`", ",", 
         "0.4335289897758435`", ",", "0.9929622425411476`", ",", 
         "0.480464410002536`", ",", "0.5586260902316568`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.20285042224309008`", ",", 
         "0.508859790521888`", ",", "0.9725770114237187`", ",", 
         "0.9683949365459823`", ",", "0.34812417921677696`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.20616593924555676`", ",", 
         "0.4084363718515576`", ",", "0.35723241859608007`", ",", 
         "0.04930146370300023`", ",", "0.4109521931769997`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5298599827694213`", ",", 
         "0.2588303154161548`", ",", "0.631109648352051`", ",", 
         "0.7311031274223599`", ",", "0.5502083003103362`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.47831451217234106`", ",", 
         "0.47891607060429403`", ",", "0.11436888009743643`", ",", 
         "0.3087838919233717`", ",", "0.7040843635388996`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.04538708082845055`", ",", 
         "0.12140663755628879`", ",", "0.8283194819208357`", ",", 
         "0.1454582733072428`", ",", "0.8425366585853604`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6125468470344008`", ",", 
         "0.855742470497117`", ",", "0.1770633367612605`", ",", 
         "0.4944124793685835`", ",", "0.40638090778884406`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4473060986455595`", ",", 
         "0.8198309181651804`", ",", "0.44511101566558325`", ",", 
         "0.9954287146118443`", ",", "0.9174461158761382`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5610006027490256`", ",", 
         "0.8140013673135323`", ",", "0.26432558718948446`", ",", 
         "0.36723781556580204`", ",", "0.08268609057668458`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.33508529670923826`", ",", 
         "0.14995670709204803`", ",", "0.058453923642430336`", ",", 
         "0.378601727037785`", ",", "0.2896982158807877`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.02855006953575924`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.23013444172159464`", ",", "0.2331434537305422`", ",", 
         "0.4471615572954273`", ",", "0.4160032225013584`", ",", 
         "0.37439197122447754`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.056080116969281724`", ",", "0.9527490779268437`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "23.897423598889134`"}], ",", 
       RowBox[{"-", "6.741767874927622`"}], ",", 
       RowBox[{"-", "15.7310372552779`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.009622314712514362`", ",", 
         "0.9270858725789181`", ",", "0.2362491988041013`", ",", 
         "0.5076380622612605`", ",", "0.014193600100670008`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.009639756702779813`", ",", 
         "0.6752485960550757`", ",", "0.6936366949477282`", ",", 
         "0.7498680129111855`", ",", "0.6424019411369778`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5925625054783911`", ",", 
         "0.3585513982384899`", ",", "0.5999113058191375`", ",", 
         "0.5839480174945475`", ",", "0.2139607784406061`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.06885318235770219`", ",", 
         "0.5713612362833783`", ",", "0.3538135757729528`", ",", 
         "0.9808173247100639`", ",", "0.6216916250622749`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.15535801378201985`", ",", 
         "0.9794216045484753`", ",", "0.9247372077407822`", ",", 
         "0.6689425471354311`", ",", "0.1457356990695055`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.05233573196955722`", ",", 
         "0.6884880089366808`", ",", "0.16130448487417068`", ",", 
         "0.1315420989688355`", ",", "0.04269597526677741`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.013239412881605166`", ",", 
         "0.4676677899264425`", ",", "0.38167408605764996`", ",", 
         "0.40029403412979964`", ",", "0.42067690740321406`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.10911639168795256`", ",", 
         "0.7817627802385124`", ",", "0.8163460166352522`", ",", 
         "0.20671612896260796`", ",", "0.040263209330250384`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.21040154395513413`", ",", 
         "0.46253244086229933`", ",", "0.22589880425254408`", ",", 
         "0.41857158426797547`", ",", "0.05504353017311426`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.48311083631382407`", ",", 
         "0.30116159651176194`", ",", "0.7496290371325443`", ",", 
         "0.9093078311036088`", ",", "0.43077510434426686`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6126735875750811`", ",", 
         "0.5883245522583737`", ",", "0.7777657321347733`", ",", 
         "0.3880791290774894`", ",", "0.5994341746934759`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.12065676233193114`", ",", 
         "0.3960916460771233`", ",", "0.9877850949476898`", ",", 
         "0.17875726729026184`", ",", "0.01154037064397857`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6143288658386109`", ",", 
         "0.17143907831243763`", ",", "0.9720411383276538`", ",", 
         "0.9712771613137282`", ",", "0.4039273218834768`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7089066374501383`", ",", 
         "0.7461423340751098`", ",", "0.5527055770457527`", ",", 
         "0.34888379171036255`", ",", "0.22579580113631423`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4449807375633479`", ",", 
         "0.8030765399132085`", ",", "0.43957596060675375`", ",", 
         "0.7950206967920473`", ",", "0.8323071499882668`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.21475198765483483`", ",", 
         "0.6618102284719805`", ",", "0.406941567714558`", ",", 
         "0.2328729752947909`", ",", "0.0940952253229037`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.2657185823948572`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4191564727668682`", ",", "0.054115708004529056`", ",", 
         "0.08255485467892512`", ",", "0.6513897165562462`", ",", 
         "0.24771739445443053`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", "0.0820745696768752`",
        ",", "0.11127769336519693`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "21.548514158232294`"}], ",", 
       RowBox[{"-", "23.845118618959813`"}], ",", 
       RowBox[{"-", "98.99221647817501`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.24746239467276948`", ",", 
         "0.5388107570042923`", ",", "0.3359322356017654`", ",", 
         "0.5585721163194441`", ",", "0.898578602962407`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.313014955867978`", ",", 
         "0.8909514980384176`", ",", "0.7554955764062358`", ",", 
         "0.4590026423556532`", ",", "0.5179942590759307`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.05864434805015075`", ",", 
         "0.5407435887514009`", ",", "0.7971924138836727`", ",", 
         "0.11105269136137268`", ",", "0.8257713727553598`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.44664836342849723`", ",", 
         "0.5314738314888156`", ",", "0.6918962185945046`", ",", 
         "0.7716556647508308`", ",", "0.36409350874957214`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.8800841149325692`", ",", 
         "0.444178824140074`", ",", "0.6895810950739556`", ",", 
         "0.2528158153843752`", ",", "0.6326217202597998`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9053680671357818`", ",", 
         "0.3536488594721902`", ",", "0.694243699064931`", ",", 
         "0.7340431172973928`", ",", "0.5923531112678038`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.46269736143377266`", ",", 
         "0.9387481226586952`", ",", "0.2750404749417396`", ",", 
         "0.07435885219187309`", ",", "0.4040530133836219`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.39800453390729434`", ",", 
         "0.47784806105806693`", ",", "0.9633061608305005`", ",", 
         "0.578281640628262`", ",", "0.9513561704787971`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9463742295692514`", ",", 
         "0.2714099422359959`", ",", "0.8066259758774312`", ",", 
         "0.5872626617292249`", ",", "0.06629011463668218`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8272311180959219`", ",", 
         "0.11704488080347564`", ",", "0.3344468463448498`", ",", 
         "0.4336683943768824`", ",", "0.9218630509601402`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7633960213312855`", ",", 
         "0.6402031472799188`", ",", "0.6996252770794896`", ",", 
         "0.32950993969233644`", ",", "0.30069865989751277`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7014550246212236`", ",", 
         "0.42458480213775`", ",", "0.2551510875004634`", ",", 
         "0.8966456465138909`", ",", "0.3034504907139292`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9467367410796831`", ",", 
         "0.291844926669963`", ",", "0.31836400588562885`", ",", 
         "0.3520943202351321`", ",", "0.00036251151043164903`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.02043498443396705`", ",", 
         "0.5117380300081976`", ",", "0.7648316585059072`", ",", 
         "0.9340723968737494`", ",", "0.19320386633804512`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.394693149204722`", ",", 
         "0.4303848121610574`", ",", "0.500404002496867`", ",", 
         "0.27134081537790494`", ",", "0.6312971278734365`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7901816648811386`", ",", 
         "0.8007787254173775`", ",", "0.9418308756855684`", ",", 
         "0.3305984679759238`", ",", "0.0887266402599151`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.3761939232796275`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6866797881851051`", ",", "0.4339528214620329`", ",", 
         "0.7852761495459859`", ",", "0.4294571821999444`", ",", 
         "0.39483486151514213`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.11558881557640402`", ",", "0.43318182931085375`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "45.56750902850806`"}], ",", 
       RowBox[{"-", "25.172568143280834`"}], ",", 
       RowBox[{"-", "50.135511008271166`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.42909467068951274`", ",", 
         "0.3743998770811751`", ",", "0.6038507855682064`", ",", 
         "0.6683501708049466`", ",", "0.49502227381576325`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.18119601074312996`", ",", 
         "0.20915763636348442`", ",", "0.2379653586438892`", ",", 
         "0.9946182713188962`", ",", "0.9098551953652251`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5778605084900479`", ",", 
         "0.44778369376275057`", ",", "0.19383954590151875`", ",", 
         "0.9680243196796565`", ",", "0.2472620405141241`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.3590570535028355`", ",", 
         "0.8176456226218913`", ",", "0.28134453149455146`", ",", 
         "0.8133092190520912`", ",", "0.5737809039568496`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.38818844042194695`", ",", 
         "0.8865096699794093`", ",", "0.6977204034756872`", ",", 
         "0.14059907464599583`", ",", "0.9590937697324342`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5121097928982342`", ",", 
         "0.0938696179074808`", ",", "0.47224890384104923`", ",", 
         "0.46407149591667096`", ",", "0.3309137821551042`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8847119815439964`", ",", 
         "0.23428354519716002`", ",", "0.4694532245977747`", ",", 
         "0.4210585867898792`", ",", "0.30685147305394855`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7864998514344095`", ",", 
         "0.27561367869625597`", ",", "0.4530342671102226`", ",", 
         "0.059589432539824454`", ",", "0.4274427979315739`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.4579680560743647`", ",", 
         "0.1716897356156712`", ",", "0.24628021348773324`", ",", 
         "0.8536618939747244`", ",", "0.06977961565241773`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2851800656362619`", ",", 
         "0.548559810012046`", ",", "0.7130628193287285`", ",", 
         "0.11068584591998354`", ",", "0.7730702727380278`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.45469019210456524`", ",", 
         "0.24081391548767928`", ",", "0.6466143500033126`", ",", 
         "0.4421564905829235`", ",", "0.5699782105605689`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.006530370290519255`", ",", 
         "0.17716112540553783`", ",", "0.021097903793044347`", ",", 
         "0.2631267375066203`", ",", "0.22003051885610983`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9015474467092819`", ",", 
         "0.5680636366828217`", ",", "0.20353730496679587`", ",", 
         "0.7925877209245359`", ",", "0.4435793906349172`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.39637390106715054`", ",", 
         "0.9572570914790626`", ",", "0.9389258269498115`", ",", 
         "0.37379977498249944`", ",", "0.11119383543088864`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.40869728146701656`", ",", 
         "0.22586300762108302`", ",", "0.2631139290625159`", ",", 
         "0.3381235626928609`", ",", "0.9540070893624514`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9850490921334037`", ",", 
         "0.6164995790592033`", ",", "0.8959670721099374`", ",", 
         "0.38402887880188247`", ",", "0.9785187218428845`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.4393384536536655`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8748691683168931`", ",", "0.12090214129526215`", ",", 
         "0.7584882029867747`", ",", "0.5377910069443836`", ",", 
         "0.3068055316340713`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "0.9173648363284663`",
        ",", "0.9659004820622388`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "46.93735522003109`"}], ",", 
       RowBox[{"-", "25.725307363354112`"}], ",", 
       RowBox[{"-", "48.3696134969683`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.09421161630946645`", ",", 
         "0.9104316305669208`", ",", "0.9601077448494036`", ",", 
         "0.02697465511242726`", ",", "0.720411841326967`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7992377951360321`", ",", 
         "0.5514104633823871`", ",", "0.8011116474913442`", ",", 
         "0.4572979122644511`", ",", "0.46111423244317123`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5974033740199357`", ",", 
         "0.8160625553579405`", ",", "0.8407983332052478`", ",", 
         "0.5651471603332339`", ",", "0.2133744952180533`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.837543833515056`", ",", 
         "0.4014598795515823`", ",", "0.6902779920163408`", ",", 
         "0.09247235392279113`", ",", "0.0790556305282813`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.8636688726071987`", ",", 
         "0.38347246038226945`", ",", "0.17510751759432483`", ",", 
         "0.1131551484660425`", ",", "0.7694572562977322`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4730408298153487`", ",", 
         "0.21499977274492119`", ",", "0.08618049335361523`", ",", 
         "0.04904541497076519`", ",", "0.6738030346793165`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6635893093625341`", ",", 
         "0.285068845862271`", ",", "0.591747502706314`", ",", 
         "0.21268880223614528`", ",", "0.06618593534259834`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4690062905043305`", ",", 
         "0.7509491695010663`", ",", "0.6475416419029114`", ",", 
         "0.852811440124545`", ",", "0.6314624569892746`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.349489289949484`", ",", 
         "0.9572636498865706`", ",", "0.7603390862017539`", ",", 
         "0.5524068264609933`", ",", "0.48582041734228537`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5737911895043012`", ",", 
         "0.5852315686074291`", ",", "0.4392516779949508`", ",", 
         "0.7163631610445531`", ",", "0.10075035968895257`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.37023179586250793`", ",", 
         "0.3530711846413355`", ",", "0.6673177460737879`", ",", 
         "0.42694732500963606`", ",", "0.7066424864999739`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.06800233877906453`", ",", 
         "0.07557024336747385`", ",", "0.21425852277349078`", ",", 
         "0.6404565511573754`", ",", "0.598996048274734`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.32462107386640754`", ",", 
         "0.5667168808705794`", ",", "0.7876451110328304`", ",", 
         "0.9675335912854595`", ",", "0.9751317839169236`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6094532309840087`", ",", 
         "0.0273060248310765`", ",", "0.41512676482446614`", ",", 
         "0.4893113665746382`", ",", "0.035662041479707446`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.44207445622364744`", ",", 
         "0.9758750868295154`", ",", "0.772948205530085`", ",", 
         "0.9349116817907549`", ",", "0.07184266036113951`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6228039021881798`", ",", 
         "0.1056304594562971`", ",", "0.5079643567811188`", ",", 
         "0.3652001738611657`", ",", "0.5548015634091152`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.030060216088823234`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.293705834007628`", ",", "0.7247436227037902`", ",", 
         "0.9558055151343813`", ",", "0.7054391422224157`", ",", 
         "0.7269889531370487`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", "0.9370985116709598`",
        ",", "0.9882719238489218`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "48.488137671091096`"}], ",", 
       RowBox[{"-", "11.210743141554687`"}], ",", 
       RowBox[{"-", "28.846148430612956`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.529267102461829*^9, 3.52926764140103*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mstep (log\[Beta])", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}, {3.525112791223256*^9, 
  3.525112791828678*^9}, {3.525115293972691*^9, 3.525115296179682*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "mstep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"mstep", "[", 
     RowBox[{
     "\[Alpha]_", ",", " ", "log\[Beta]_", ",", "  ", "pz_", ",", " ", "d_", 
      ",", " ", "plog\[Beta]_"}], "]"}], " ", ":=", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{"q", ",", " ", "vars", ",", " ", "log\[Beta]new"}], " ", "}"}],
       ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{"q", ",", " ", "vars"}], "}"}], " ", "=", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"FindMaximum", "[", 
         RowBox[{
          RowBox[{"qfunc", "[", 
           RowBox[{
           "\[Alpha]", ",", " ", "log\[Beta]new", ",", " ", "pz", ",", " ", 
            "d", ",", " ", "plog\[Beta]"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"log\[Beta]new", ",", " ", "log\[Beta]"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"AccuracyGoal", " ", "\[Rule]", " ", "10"}], ",", " ", 
          RowBox[{"PrecisionGoal", "\[Rule]", "10"}], ",", " ", 
          RowBox[{"WorkingPrecision", "\[Rule]", " ", "20"}]}], 
         "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"{", " ", 
        RowBox[{"q", ",", " ", 
         RowBox[{"log\[Beta]new", " ", "/.", " ", "vars"}]}], " ", "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.525112845374671*^9, 3.525112988617275*^9}, {
  3.525113459603532*^9, 3.525113472249138*^9}, {3.525113554121476*^9, 
  3.525113581131281*^9}, {3.525113780579424*^9, 3.5251137888400583`*^9}, {
  3.525113825010914*^9, 3.525113825305956*^9}, {3.525204881040271*^9, 
  3.525204882117687*^9}, {3.525205322777459*^9, 3.525205343300995*^9}, {
  3.525205386747162*^9, 3.525205391547484*^9}, {3.529278780866664*^9, 
  3.529278813866756*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for mstep", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
  3.504185890254962*^9, 3.504185890709035*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"#", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "}"}], "&"}], " ", "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"!", " ", 
               RowBox[{"ListQ", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
              RowBox[{"!", " ", 
               RowBox[{"IntegerQ", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
           RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
        " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"mstep", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
         
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], " ", "/@", 
          " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", " ", 
         RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], " ", 
        RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        "]"}]}], "}"}], "&"}], " ", "/@", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"i", " ", "\[Equal]", " ", "j"}], ",", " ", 
                RowBox[{"-", "1.0"}], ",", " ", 
                RowBox[{"Random", "[", "]"}]}], "]"}], ",", " ", 
              RowBox[{"{", " ", 
               RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", 
               "}"}]}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", "nlabels"}], "}"}]}], 
           "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}],
         ",", " ", 
        RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], "\[IndentingNewLine]", 
        "0.0", ",", " ", 
        RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"(*", " ", "pz", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
          " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"(*", " ", 
         RowBox[{"plog\[Beta]", " ", "mean"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Random", "[", "]"}]}], " ", 
       RowBox[{"(*", " ", 
        RowBox[{"plog\[Beta]", " ", "stddev"}], " ", "*)"}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"foo", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]}], 
   ")"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504736746249776*^9, 3.504736747391447*^9}, {3.5047392919506187`*^9, 
   3.5047393060567513`*^9}, {3.504798824650428*^9, 3.504798830027975*^9}, {
   3.5047988766070127`*^9, 3.5047988808248873`*^9}, {3.504798992184866*^9, 
   3.504798999242839*^9}, {3.504876938549634*^9, 3.5048769951172333`*^9}, {
   3.522509045959429*^9, 3.522509046142926*^9}, 3.5225091965636673`*^9, {
   3.5251130226460114`*^9, 3.525113215656299*^9}, {3.52511329991289*^9, 
   3.525113303742675*^9}, {3.525113595012692*^9, 3.525113618283544*^9}, {
   3.5251137696656313`*^9, 3.525113770103348*^9}, 3.5251146374457912`*^9, {
   3.5251344298138866`*^9, 3.525134453201276*^9}, 3.525195312800619*^9, {
   3.525204819402651*^9, 3.5252048200168447`*^9}, {3.5292788641192007`*^9, 
   3.5292789118983183`*^9}, {3.529280275980754*^9, 3.5292802960744953`*^9}, {
   3.529280347004406*^9, 3.5292803477460947`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
173792421727369` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.5724720946079673`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-1.0295762504706085`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 39 \[RightSkeleton]\\)\\) + \\(\\(0.619677938675929`\\\\ \
\\(\\(Log[\\(\\(\[ExponentialE]\\^\\(1.`\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(\\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\
\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.529278923428623*^9, {3.529280276398432*^9, 3.529280296445286*^9}, 
   3.529280348125842*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
5736751460122476` \[InvisibleSpace]\\)\\) + \\(\\(\[LeftSkeleton] 40 \
\[RightSkeleton]\\)\\) + \\(\\(0.08981428253563017`\\\\ \\(\\(Log[\\(\\(\
\[ExponentialE]\\^\\(\\(\\(-0.026593554194012686`\\)\\)\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(\\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\
\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.529278923428623*^9, {3.529280276398432*^9, 3.529280296445286*^9}, 
   3.5292803482218447`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
0015195214177819` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.7023524888575843`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-1.5497445728707726`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 34 \[RightSkeleton]\\)\\) + \\(\\(0.8280862006674404`\\\\ \\(\
\\(Log[\\(\\(\[ExponentialE]\\^\\(1.`\\\\ \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.529278923428623*^9, {3.529280276398432*^9, 3.529280296445286*^9}, 
   3.5292803483182173`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FindMaximum :: \
\\\"precw\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.529278923428623*^9, {3.529280276398432*^9, 3.529280296445286*^9}, 
   3.5292803483224373`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.48319679359339324`", ",", 
         "0.660258096755144`", ",", "0.7279272936899054`", ",", 
         "0.982813383418213`", ",", "0.7670975092214156`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.675676986648698`", ",", 
         "0.4473081725901567`", ",", "0.6165706843287528`", ",", 
         "0.19736816028452056`", ",", "0.23344922811861019`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.07673650531589471`", ",", 
         "0.18039677762195502`", ",", "0.8866532290624006`", ",", 
         "0.303462219223891`", ",", "0.8530331090512522`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5164087009433601`", ",", 
         "0.14303143816203165`", ",", "0.07087518532815842`", ",", 
         "0.577287540956344`", ",", "0.982266424845838`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5926616152207473`", ",", 
         "0.7567055668898092`", ",", "0.014327611252956073`", ",", 
         "0.8021023845702291`", ",", "0.10946482162735405`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.09644747013466515`", ",", 
         "0.2864003175630507`", ",", "0.8192890011520162`", ",", 
         "0.34236731240593843`", ",", "0.42077048348596713`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.839092144972894`", ",", 
         "0.20271831682326336`", ",", "0.14499915212141787`", ",", 
         "0.18732125536735694`", ",", "0.7623556396569993`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.022321539201308346`", ",", 
         "0.2583459230590172`", ",", "0.883859036143466`", ",", 
         "0.9093225306057471`", ",", "0.5059128382579483`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.11531448489698555`", ",", 
         "0.8129838508153076`", ",", "0.3320349896494029`", ",", 
         "0.5236464134121102`", ",", "0.5226528696762383`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.056278283925498364`", ",", 
         "0.31770737839644686`", ",", "0.7215440288418811`", ",", 
         "0.4131880480488842`", ",", "0.9598308137908332`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.03130706083339622`", ",", 
         "0.9022550276898649`", ",", "0.07082073564294579`", ",", 
         "0.5390603303048661`", ",", "0.19221491586050224`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6995367108666015`", ",", 
         "0.9258215835215279`", ",", "0.3517390749375091`", ",", 
         "0.429859276203503`", ",", "0.6772151716652932`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6674756604625107`", ",", 
         "0.4678800387940432`", ",", "0.520536745597756`", ",", 
         "0.17130233340734494`", ",", "0.5521611755655251`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6548961879787357`", ",", 
         "0.188501755948353`", ",", "0.6476559199952348`", ",", 
         "0.02950830588928692`", ",", "0.5986179040532373`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8707943775519061`", ",", 
         "0.9261118911533537`", ",", "0.6163202578404027`", ",", 
         "0.6387870902624041`", ",", "0.83948731671851`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.023856863463488743`", ",", 
         "0.5454995221974569`", ",", "0.09972675995753803`", ",", 
         "0.6472724008580076`", ",", "0.3243201525968872`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.619677938675929`", ",", "0.7479876850200289`", ",", 
         "0.21741312465450466`", ",", "0.647104980931594`", ",", 
         "0.9522022782134183`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", "0.2801076462259857`",
        ",", "0.6968763790567487`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "42.8672105385898826600961704234861478029`20."}], ",", 
       RowBox[{
       "-", "0.8482621241522781842641691322849766428691471037426552470606`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.47580264752424906`", ",", 
         "0.4000411026478931`", ",", "0.62521145824725`", ",", 
         "0.5083746231083958`", ",", "0.8281467275290143`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.3705327967586062`", ",", 
         "0.026593554194012686`", ",", "0.6375802455564896`", ",", 
         "0.9020348363756606`", ",", "0.7542125389182035`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.38780646393160856`", ",", 
         "0.7980929288379797`", ",", "0.8781779729121719`", ",", 
         "0.20871301672074652`", ",", "0.28807970397407057`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.15082052797997206`", ",", 
         "0.5538578203152847`", ",", "0.5890350780448176`", ",", 
         "0.5400920189540417`", ",", "0.9334074033254673`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.9067528393836908`", ",", 
         "0.6368327998313993`", ",", "0.25998437272805597`", ",", 
         "0.23653102426871866`", ",", "0.43095019185944167`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.23679169718350618`", ",", 
         "0.634772914480806`", ",", "0.7281564011603229`", ",", 
         "0.6028034643304273`", ",", "0.8662589004249001`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6081793602867933`", ",", 
         "0.09057615560383331`", ",", "0.7007686279547667`", ",", 
         "0.11204636150669657`", ",", "0.2203728963551847`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2924832267658536`", ",", 
         "0.8225906550425948`", ",", "0.9033333447859501`", ",", 
         "0.9322931923811142`", ",", "0.14166269878588156`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.26873283472731`", ",", 
         "0.3142982667411325`", ",", "0.3922011734270725`", ",", 
         "0.20825529546041419`", ",", "0.3619799953436193`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6774654669097332`", ",", 
         "0.1322168006990165`", ",", "0.9717242711916955`", ",", 
         "0.9310298034841776`", ",", "0.440673769726227`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.49744388621821056`", ",", 
         "0.2435678700313726`", ",", "0.32822633915375027`", ",", 
         "0.574414869301327`", ",", "0.8892645259314172`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.15299171442753928`", ",", 
         "0.6274577111989836`", ",", "0.46236850779463046`", ",", 
         "0.6688916295762326`", ",", "0.8605084876616856`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.8048670561563889`", ",", 
         "0.5590351630086804`", ",", "0.7365984371951184`", ",", 
         "0.7188457888758041`", ",", "0.5361342214290788`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.24473689626754788`", ",", 
         "0.34439726376804597`", ",", "0.51059049341539`", ",", 
         "0.1741542260854595`", ",", "0.5672714293578146`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.21218046306902946`", ",", 
         "0.5388662222236944`", ",", "0.24312442260128186`", ",", 
         "0.12659765963158762`", ",", "0.7147365768508189`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.29529835219232187`", ",", 
         "0.9148980834475315`", ",", "0.5521827903302606`", ",", 
         "0.8254720509194017`", ",", "0.14230663776478256`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.28744037224854796`", ",", "0.08981428253563017`", ",", 
         "0.15658042134316905`", ",", "0.2817981501030969`", ",", 
         "0.48257331609215914`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", "0.5307791195269498`",
        ",", "0.4199819841480506`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "17.77125295477959071072546651425004255983`20."}], ",", 
       RowBox[{
       "-", "0.1188723480545156955318361943475758898958183351624029455706`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.5629523612272928`", ",", 
         "0.9464390946630803`", ",", "0.2860422232594019`", ",", 
         "0.07558472038000462`", ",", "0.05236186781190278`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.7722848685776208`", ",", 
         "0.7187707939015873`", ",", "0.8634042573109751`", ",", 
         "0.5134956455882084`", ",", "0.5291604459763389`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5921731342699996`", ",", 
         "0.14866768046015627`", ",", "0.2181972933958865`", ",", 
         "0.6142623625288074`", ",", "0.03999034393973902`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.32319562954075465`", ",", 
         "0.07589065563110395`", ",", "0.32682199028025943`", ",", 
         "0.9501760614041088`", ",", "0.1666152081975856`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.794092505528007`", ",", 
         "0.8442486741881002`", ",", "0.4193969418771591`", ",", 
         "0.746633224049535`", ",", "0.23114014430071433`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8978095795250199`", ",", 
         "0.1333547186177572`", ",", "0.6710485036695304`", ",", 
         "0.17877827648881156`", ",", "0.12552471094739917`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.41458392471616995`", ",", 
         "0.8076442463585553`", ",", "0.6652826309006032`", ",", 
         "0.5963642649710602`", ",", "0.8224107904461703`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.6589765658983989`", ",", 
         "0.4470853375047167`", ",", "0.9821019024422528`", ",", 
         "0.7824204465064313`", ",", "0.33578093635764433`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.37119468187361276`", ",", 
         "0.6552799121619934`", ",", "0.8322443851023225`", ",", 
         "0.16916572816005873`", ",", "0.5771021763456057`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.8110312379738931`", ",", 
         "0.41284744322516337`", ",", "0.42253250411052373`", ",", 
         "0.34596203204489134`", ",", "0.9132216584488732`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2794927246074062`", ",", 
         "0.7514840004409934`", ",", "0.16718375555607978`", ",", 
         "0.787696947501474`", ",", "0.8649087998912363`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.9438397540824381`", ",", 
         "0.5019011246554765`", ",", "0.1913326825304138`", ",", 
         "0.042498009445065925`", ",", "0.2848631881840392`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.05481578715075986`", ",", 
         "0.20923078008816096`", ",", "0.26007756293863465`", ",", 
         "0.9490822518263948`", ",", "0.6836211052771471`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5539508679261675`", ",", 
         "0.4278331778363122`", ",", "0.7799165236663361`", ",", 
         "0.10651892893154143`", ",", "0.7429196299522743`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.014985734611148813`", ",", 
         "0.3573840195558124`", ",", "0.7605568968866501`", ",", 
         "0.8296979715034012`", ",", "0.7354930100037427`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.605900019114819`", ",", 
         "0.5933731413305703`", ",", "0.042001024001927206`", ",", 
         "0.8705842101125064`", ",", "0.6620602650323809`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09147201667509373`", ",", "0.8506683414715134`", ",", 
         "0.8280862006674404`", ",", "0.3771970768483417`", ",", 
         "0.03665622952433387`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", "0.6414375613833525`",
        ",", "0.5680086377288058`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "31.5658514317509283709965974030671077936`20."}], ",", 
       RowBox[{
       "-", "0.5226175960371117822787915763657083791157568260915544655631`20.\
"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", "0.4281148250219468`", ",", 
         "0.35303512424718675`", ",", "0.08748669345718495`", ",", 
         "0.14017545989249364`", ",", "0.6481983013556107`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.24651619531564534`", ",", 
         "0.34456706350491056`", ",", "0.12518972528134484`", ",", 
         "0.2908142817997983`", ",", "0.48595929842899527`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5148690920015093`", ",", 
         "0.3896967152776022`", ",", "0.6849142626849792`", ",", 
         "0.8925861570984249`", ",", "0.47286806799958214`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5191125051650958`", ",", 
         "0.02285399765259835`", ",", "0.8011141404233312`", ",", 
         "0.6221997265280688`", ",", "0.6910263044976553`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.6456569208042566`", ",", 
         "0.7644579108989974`", ",", "0.9807621651447163`", ",", 
         "0.12301766676884954`", ",", "0.21754209578230982`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.4114227866518106`", ",", 
         "0.8932754716875313`", ",", "0.9828422068763559`", ",", 
         "0.5693437944266991`", ",", "0.16490659133616523`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.5487084081826208`", ",", 
         "0.8576524815950111`", ",", "0.27852951262690084`", ",", 
         "0.6789472929071699`", ",", "0.03383931618111138`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.46795576631740887`", ",", 
         "0.5936152499419216`", ",", "0.786361135808745`", ",", 
         "0.5609712481815292`", ",", "0.948843261152313`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.5707612522893233`", ",", 
         "0.9852469953854138`", ",", "0.9387715216534605`", ",", 
         "0.25781695665465765`", ",", "0.9251043314850667`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.2207890844864165`", ",", 
         "0.9580093565087442`", ",", "0.1347992898858081`", ",", 
         "0.7075622357027568`", ",", "0.8093662978346059`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.06473388482121291`", ",", 
         "0.15195708300945224`", ",", "0.13821844127605765`", ",", 
         "0.6444597064984406`", ",", "0.5160254766385922`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.29430460141444115`", ",", 
         "0.8596889286491568`", ",", "0.9655124135912707`", ",", 
         "0.4821861604574808`", ",", "0.8263488350970323`", ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", "0.2660736787072352`", ",", 
         "0.17915127778252565`", ",", "0.9212149122759515`", ",", 
         "0.8775055739447193`", ",", "0.6953124264179119`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.19390428239711185`", ",", 
         "0.9824433906224911`", ",", "0.6196886172900616`", ",", 
         "0.7702080949328454`", ",", "0.9731151979106953`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.024434034113746846`", ",", 
         "0.4848893274042535`", ",", "0.06264585923008856`", ",", 
         "0.16374890007608947`", ",", "0.9597001492925339`", ",", 
         RowBox[{"-", "1.`"}], ",", "0.33293224439480124`", ",", 
         "0.9244274179540309`", ",", "0.5192891935776488`", ",", 
         "0.4436746726539418`", ",", "0.03862764298036009`", ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06473848930487414`", ",", "0.5537767799863781`", ",", 
         "0.9614885121964609`", ",", "0.21227880788332779`", ",", 
         "0.7986648105976389`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.37462550220385243`", ",", "0.0402735999205094`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "44.99899180642128712436461862723970287773`20."}], ",", 
       "0.3330318406723240916834594015314648026435465077987885251787`20."}], 
      "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.52927892351296*^9, {3.529280277176457*^9, 3.529280296859817*^9}, 
   3.529280348500524*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["EMstep (log\[Beta] and q)", "Subsection",
 CellChangeTimes->{{3.525095319326301*^9, 3.525095320059371*^9}, {
  3.52509801721535*^9, 3.525098017925005*^9}, {3.525112791223256*^9, 
  3.525112791828678*^9}, {3.525115293972691*^9, 3.525115296179682*^9}, {
  3.5251184948850317`*^9, 3.5251184992621593`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "emsteponce", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"emsteponce", "[", 
    RowBox[{
    "\[Alpha]_", ",", " ", "log\[Beta]_", ",", " ", "pz_", ",", " ", 
     "priorz_", ",", " ", "d_", ",", " ", "plog\[Beta]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pznew", " ", "=", " ", 
       RowBox[{"estep", "[", 
        RowBox[{
        "priorz", ",", " ", "d", ",", " ", "\[Alpha]", ",", " ", 
         "log\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{"q", ",", " ", "log\[Beta]new"}], " ", "}"}], " ", "=", " ", 
       RowBox[{"mstep", "[", 
        RowBox[{
        "\[Alpha]", ",", " ", "log\[Beta]", ",", " ", "pznew", ",", " ", "d", 
         ",", " ", "plog\[Beta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"q", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], " ", 
       "}"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "emstepf", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"emstepf", "[", "tuple_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "q", ",", " ", "\[Alpha]", ",", " ", "log\[Beta]", ",", " ", "pz", ",", 
       " ", "priorz", ",", " ", "d", ",", " ", "plog\[Beta]", ",", " ", 
       "qnew", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
        "q", ",", " ", "\[Alpha]", ",", " ", "log\[Beta]", ",", " ", "pz", 
         ",", " ", "priorz", ",", " ", "d", ",", " ", "plog\[Beta]"}], "}"}], 
       " ", "=", " ", "tuple"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{"qnew", ",", " ", "pznew", ",", " ", "log\[Beta]new"}], " ", 
        "}"}], " ", "=", " ", 
       RowBox[{"emsteponce", "[", 
        RowBox[{
        "\[Alpha]", ",", " ", "log\[Beta]", ",", " ", "pz", ",", " ", 
         "priorz", ",", " ", "d", ",", " ", "plog\[Beta]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "qnew", ",", " ", "\[Alpha]", ",", " ", "log\[Beta]new", ",", " ", 
        "pznew", ",", " ", "priorz", ",", " ", "d", ",", " ", "plog\[Beta]"}],
        "}"}]}]}], " ", "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "emstep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emstep", "[", 
   RowBox[{
   "tol_", ",", " ", "\[Alpha]_", ",", " ", "log\[Beta]_", ",", " ", 
    "priorz_", ",", " ", "d_", ",", " ", "plog\[Beta]_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"FixedPoint", "[", 
    RowBox[{"emstepf", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"qfunc", "[", 
        RowBox[{
        "\[Alpha]", ",", " ", "log\[Beta]", ",", " ", "priorz", ",", " ", "d",
          ",", " ", "plog\[Beta]"}], "]"}], ",", " ", "\[Alpha]", ",", " ", 
       "log\[Beta]", ",", " ", "priorz", ",", " ", "priorz", ",", " ", "d", 
       ",", " ", "plog\[Beta]"}], "}"}], ",", 
     RowBox[{"SameTest", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"#1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", "-", " ", 
           RowBox[{"#2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", "<", " ", 
         RowBox[{"tol", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"#1", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "+", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"#2", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ")"}]}]}], "&"}], 
       ")"}]}]}], "]"}], " ", "//", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
      RowBox[{"#", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
      RowBox[{"#", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "&"}]}]}]}], "Input",
 CellChangeTimes->{{3.525118502664279*^9, 3.5251189229771748`*^9}, {
   3.525118971729904*^9, 3.52511906365032*^9}, 3.525119216489663*^9, {
   3.52511927699596*^9, 3.525119385656954*^9}, {3.5251194234202023`*^9, 
   3.5251194314497128`*^9}, {3.525119463132557*^9, 3.525119463482739*^9}, {
   3.525119510764413*^9, 3.525119696006434*^9}, {3.52511973278708*^9, 
   3.5251198264569597`*^9}, {3.5251198791493273`*^9, 3.525119881275783*^9}, {
   3.525119955256009*^9, 3.525119993679954*^9}, {3.529280519196418*^9, 
   3.5292807712286873`*^9}, {3.529280808991749*^9, 3.529280809848391*^9}, {
   3.52928185872832*^9, 3.529281859043879*^9}, {3.5292820611080837`*^9, 
   3.5292820692891493`*^9}, 3.529282132799691*^9, {3.529282383305655*^9, 
   3.529282474507554*^9}, {3.52928253866116*^9, 3.529282543156312*^9}, {
   3.529282899776215*^9, 3.5292829014151363`*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for emstep", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
   3.504185890254962*^9, 3.504185890709035*^9}, 3.525119089760151*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"#", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "}"}], "&"}], " ", "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"!", " ", 
               RowBox[{"ListQ", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
              RowBox[{"!", " ", 
               RowBox[{"IntegerQ", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
           RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
        " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"emstep", "[", "\[IndentingNewLine]", 
        RowBox[{"0.0001", ",", " ", 
         RowBox[{"(*", " ", "tol", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
         
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "priorz", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], " ", "/@", 
          " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", " ", 
         RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], " ", 
        RowBox[{"(*", " ", "plog\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        "]"}]}], "}"}], "&"}], " ", "/@", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"i", " ", "\[Equal]", " ", "j"}], ",", " ", 
                RowBox[{"-", "1.0"}], ",", " ", 
                RowBox[{
                 RowBox[{"Random", "[", "]"}], " ", "-", " ", "1.0"}]}], 
               "]"}], ",", " ", 
              RowBox[{"{", " ", 
               RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", 
               "}"}]}], "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", "nlabels"}], "}"}]}], 
           "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}],
         ",", " ", 
        RowBox[{"(*", " ", "\[Alpha]", " ", "*)"}], "\[IndentingNewLine]", 
        "0.0", ",", " ", 
        RowBox[{"(*", " ", "log\[Beta]", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"(*", " ", "priorz", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
          " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"(*", " ", "d", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"(*", " ", 
         RowBox[{"plog\[Beta]", " ", "mean"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Random", "[", "]"}]}], " ", 
       RowBox[{"(*", " ", 
        RowBox[{"plog\[Beta]", " ", "stddev"}], " ", "*)"}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"foo", ",", " ", "1", ",", " ", "4"}], " ", "}"}]}], "]"}]}], 
   ")"}], " "}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504736746249776*^9, 3.504736747391447*^9}, {3.5047392919506187`*^9, 
   3.5047393060567513`*^9}, {3.504798824650428*^9, 3.504798830027975*^9}, {
   3.5047988766070127`*^9, 3.5047988808248873`*^9}, {3.504798992184866*^9, 
   3.504798999242839*^9}, {3.504876938549634*^9, 3.5048769951172333`*^9}, {
   3.522509045959429*^9, 3.522509046142926*^9}, 3.5225091965636673`*^9, {
   3.5251130226460114`*^9, 3.525113215656299*^9}, {3.52511329991289*^9, 
   3.525113303742675*^9}, {3.525113595012692*^9, 3.525113618283544*^9}, {
   3.5251137696656313`*^9, 3.525113770103348*^9}, 3.5251146374457912`*^9, {
   3.5251190921342697`*^9, 3.5251191512116413`*^9}, {3.525119935818041*^9, 
   3.525119945638596*^9}, 3.525132782657403*^9, {3.5251331660011*^9, 
   3.5251331884693747`*^9}, {3.525133294487653*^9, 3.5251333232326727`*^9}, {
   3.525133633591507*^9, 3.525133636595888*^9}, {3.525134141899795*^9, 
   3.525134142166514*^9}, 3.5251955612710037`*^9, {3.52520496334785*^9, 
   3.5252049635854397`*^9}, {3.525205124707118*^9, 3.5252051323971357`*^9}, {
   3.529280871897469*^9, 3.529280933964862*^9}, {3.5292817658608847`*^9, 
   3.5292817692064133`*^9}, {3.5292824932359247`*^9, 3.5292824946122513`*^9}, 
   3.529282557249202*^9, {3.5292826525888042`*^9, 3.529282652775638*^9}, {
   3.5292828137360373`*^9, 3.529282875581605*^9}, {3.529283010805286*^9, 
   3.5292830108995447`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(1.\
223348550828995` \[InvisibleSpace]\\)\\) + \\(\\(\[LeftSkeleton] 40 \
\[RightSkeleton]\\)\\) + \\(\\(0.15774456234731174`\\\\ \\(\\(Log[\\(\\(\
\[ExponentialE]\\^\\(0.9993267761844015`\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(\\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\
\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5292809344292183`*^9, 3.529281769716557*^9, 3.529281861040183*^9, 
   3.529282072155807*^9, 3.5292821360930243`*^9, 3.529282497055204*^9, {
   3.5292825448261223`*^9, 3.5292825578680887`*^9}, 3.529282653224607*^9, {
   3.529282823628469*^9, 3.529282903543149*^9}, 3.529283011161034*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(0.\
7636889189113442` \[InvisibleSpace]\\)\\) + \\(\\(\[LeftSkeleton] 40 \
\[RightSkeleton]\\)\\) + \\(\\(0.08470351850881151`\\\\ \\(\\(Log[\\(\\(\
\[ExponentialE]\\^\\(0.9993267761844015`\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(\\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\
\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5292809344292183`*^9, 3.529281769716557*^9, 3.529281861040183*^9, 
   3.529282072155807*^9, 3.5292821360930243`*^9, 3.529282497055204*^9, {
   3.5292825448261223`*^9, 3.5292825578680887`*^9}, 3.529282653224607*^9, {
   3.529282823628469*^9, 3.529282903543149*^9}, 3.5292830112553797`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(0.\
643949310228175` \[InvisibleSpace]\\)\\) + \\(\\(\[LeftSkeleton] 40 \
\[RightSkeleton]\\)\\) + \\(\\(0.06727772877541562`\\\\ \\(\\(Log[\\(\\(\
\[ExponentialE]\\^\\(0.9993267761844015`\\\\ \
\\(\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(\\(\
\\(Power[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\
\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\
\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\))\\)\\)\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than WorkingPrecision (\\\\\
\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5292809344292183`*^9, 3.529281769716557*^9, 3.529281861040183*^9, 
   3.529282072155807*^9, 3.5292821360930243`*^9, 3.529282497055204*^9, {
   3.5292825448261223`*^9, 3.5292825578680887`*^9}, 3.529282653224607*^9, {
   3.529282823628469*^9, 3.529282903543149*^9}, 3.529283011398634*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FindMaximum :: \
\\\"precw\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.5292809344292183`*^9, 3.529281769716557*^9, 3.529281861040183*^9, 
   3.529282072155807*^9, 3.5292821360930243`*^9, 3.529282497055204*^9, {
   3.5292825448261223`*^9, 3.5292825578680887`*^9}, 3.529282653224607*^9, {
   3.529282823628469*^9, 3.529282903543149*^9}, 3.529283011419228*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9315861266679428`"}], ",", 
         RowBox[{"-", "0.5685163291259592`"}], ",", 
         RowBox[{"-", "0.7732934827412019`"}], ",", 
         RowBox[{"-", "0.11278027982031458`"}], ",", 
         RowBox[{"-", "0.8883732689824677`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7099088118482029`"}], ",", 
         RowBox[{"-", "0.8501581337288981`"}], ",", 
         RowBox[{"-", "0.7439083712596969`"}], ",", 
         RowBox[{"-", "0.3698385255721326`"}], ",", 
         RowBox[{"-", "0.21575697666111782`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.12518706813883762`"}], ",", 
         RowBox[{"-", "0.816869345036596`"}], ",", 
         RowBox[{"-", "0.5076328657222355`"}], ",", 
         RowBox[{"-", "0.6679364158625557`"}], ",", 
         RowBox[{"-", "0.660818665600766`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.20263886087377758`"}], ",", 
         RowBox[{"-", "0.20411097131625766`"}], ",", 
         RowBox[{"-", "0.9993267761844015`"}], ",", 
         RowBox[{"-", "0.7473472303357214`"}], ",", 
         RowBox[{"-", "0.32984903196763793`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9262375844309457`"}], ",", 
         RowBox[{"-", "0.2375443249730853`"}], ",", 
         RowBox[{"-", "0.7833399150051321`"}], ",", 
         RowBox[{"-", "0.6545891477802799`"}], ",", 
         RowBox[{"-", "0.9946514577630029`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.669027995847126`"}], ",", 
         RowBox[{"-", "0.010046432263930205`"}], ",", 
         RowBox[{"-", "0.5418088679599652`"}], ",", 
         RowBox[{"-", "0.10627818878053508`"}], ",", 
         RowBox[{"-", "0.9591191839989232`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.15988829853503217`"}], ",", 
         RowBox[{"-", "0.7979004967002683`"}], ",", 
         RowBox[{"-", "0.7364396632084025`"}], ",", 
         RowBox[{"-", "0.7433622073378052`"}], ",", 
         RowBox[{"-", "0.03470123039619444`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9810311516636723`"}], ",", 
         RowBox[{"-", "0.22880679748616695`"}], ",", 
         RowBox[{"-", "0.07542579147524953`"}], ",", 
         RowBox[{"-", "0.3738825647954286`"}], ",", 
         RowBox[{"-", "0.7783922907898947`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.024695826169909285`"}], ",", 
         RowBox[{"-", "0.07609901529084806`"}], ",", 
         RowBox[{"-", "0.6265353344597071`"}], ",", 
         RowBox[{"-", "0.44854325882225676`"}], ",", 
         RowBox[{"-", "0.09845824173896356`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.8385546903177628`"}], ",", 
         RowBox[{"-", "0.843195419454575`"}], ",", 
         RowBox[{"-", "0.793954111041977`"}], ",", 
         RowBox[{"-", "0.10380678397596066`"}], ",", 
         RowBox[{"-", "0.16952669447063673`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.8331489871906448`"}], ",", 
         RowBox[{"-", "0.2521452430820117`"}], ",", 
         RowBox[{"-", "0.9975285951954256`"}], ",", 
         RowBox[{"-", "0.2104075104717137`"}], ",", 
         RowBox[{"-", "0.6732606886556126`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.4542447463817434`"}], ",", 
         RowBox[{"-", "0.2610889319870231`"}], ",", 
         RowBox[{"-", "0.46704530313390835`"}], ",", 
         RowBox[{"-", "0.6385594582594181`"}], ",", 
         RowBox[{"-", "0.4732135947180711`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.03228213450085615`"}], ",", 
         RowBox[{"-", "0.3916195116586588`"}], ",", 
         RowBox[{"-", "0.2646768934639895`"}], ",", 
         RowBox[{"-", "0.6948213039281763`"}], ",", 
         RowBox[{"-", "0.007586308330946867`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.31552049636781065`"}], ",", 
         RowBox[{"-", "0.6381415590042823`"}], ",", 
         RowBox[{"-", "0.24627804510591966`"}], ",", 
         RowBox[{"-", "0.9091280665919832`"}], ",", 
         RowBox[{"-", "0.4769658060500479`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7949461395497074`"}], ",", 
         RowBox[{"-", "0.45232393406394267`"}], ",", 
         RowBox[{"-", "0.8053212826160225`"}], ",", 
         RowBox[{"-", "0.30743911157941106`"}], ",", 
         RowBox[{"-", "0.9617971523590626`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.20017869098193097`"}], ",", 
         RowBox[{"-", "0.807792687420597`"}], ",", 
         RowBox[{"-", "0.09703160110769748`"}], ",", 
         RowBox[{"-", "0.28853646370345`"}], ",", 
         RowBox[{"-", "0.7459339446001876`"}], ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4532962445664261`", ",", "0.3700137020262109`", ",", 
         "0.3500229945559681`", ",", "0.7272796501178835`", ",", 
         "0.4855783790672822`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", "0.7616332136848697`",
        ",", "0.6146998880199576`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "11.2316288671524208592708997095739006676`20."}], ",", 
       "0.7379735779033954401735420127677196147311810390352063135777`20.", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8277632255825913`", ",", "0.006108448814932301`", ",", 
         "0.004980523454409709`", ",", "0.09777897847450101`", ",", 
         "0.06336882367356589`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.57789904595394`"}], ",", 
         RowBox[{"-", "0.506835312601771`"}], ",", 
         RowBox[{"-", "0.9228462899473197`"}], ",", 
         RowBox[{"-", "0.7471585529757601`"}], ",", 
         RowBox[{"-", "0.3316210008480204`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.5977072460097876`"}], ",", 
         RowBox[{"-", "0.44588048389727175`"}], ",", 
         RowBox[{"-", "0.9522124134260527`"}], ",", 
         RowBox[{"-", "0.8792970667840777`"}], ",", 
         RowBox[{"-", "0.7923859633937651`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.1384413723178607`"}], ",", 
         RowBox[{"-", "0.9904152610669901`"}], ",", 
         RowBox[{"-", "0.6791183758021468`"}], ",", 
         RowBox[{"-", "0.9845932759731681`"}], ",", 
         RowBox[{"-", "0.041409771210163204`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7018787973635401`"}], ",", 
         RowBox[{"-", "0.9331844312019593`"}], ",", 
         RowBox[{"-", "0.4378895205395942`"}], ",", 
         RowBox[{"-", "0.41142347323637407`"}], ",", 
         RowBox[{"-", "0.05190179191950817`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.6604640813198428`"}], ",", 
         RowBox[{"-", "0.9234678996068765`"}], ",", 
         RowBox[{"-", "0.17305668692124376`"}], ",", 
         RowBox[{"-", "0.6666016799394658`"}], ",", 
         RowBox[{"-", "0.08256503536590276`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.4166325870051054`"}], ",", 
         RowBox[{"-", "0.2502103969739242`"}], ",", 
         RowBox[{"-", "0.9194431269637058`"}], ",", 
         RowBox[{"-", "0.7509440345178823`"}], ",", 
         RowBox[{"-", "0.8189253409953178`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.8043299130766525`"}], ",", 
         RowBox[{"-", "0.967230713537653`"}], ",", 
         RowBox[{"-", "0.8716469677338046`"}], ",", 
         RowBox[{"-", "0.02653937760155267`"}], ",", 
         RowBox[{"-", "0.6658885407587918`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9768154524706629`"}], ",", 
         RowBox[{"-", "0.19252859193165783`"}], ",", 
         RowBox[{"-", "0.041946101628384413`"}], ",", 
         RowBox[{"-", "0.6244787695486286`"}], ",", 
         RowBox[{"-", "0.27493665510712284`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.25934416072969857`"}], ",", 
         RowBox[{"-", "0.6040565810887902`"}], ",", 
         RowBox[{"-", "0.2130552963122545`"}], ",", 
         RowBox[{"-", "0.22303486318761467`"}], ",", 
         RowBox[{"-", "0.5988800794098558`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.6805886814819138`"}], ",", 
         RowBox[{"-", "0.03999860939101063`"}], ",", 
         RowBox[{"-", "0.5564331832481489`"}], ",", 
         RowBox[{"-", "0.516315044043953`"}], ",", 
         RowBox[{"-", "0.26395609447680835`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7897882124170865`"}], ",", 
         RowBox[{"-", "0.6369900562844433`"}], ",", 
         RowBox[{"-", "0.7653710095260707`"}], ",", 
         RowBox[{"-", "0.44503075348149057`"}], ",", 
         RowBox[{"-", "0.985458299340434`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.6697593427467902`"}], ",", 
         RowBox[{"-", "0.8937240417922662`"}], ",", 
         RowBox[{"-", "0.418491375879938`"}], ",", 
         RowBox[{"-", "0.31956975858164227`"}], ",", 
         RowBox[{"-", "0.6929438902761272`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7011954498606084`"}], ",", 
         RowBox[{"-", "0.3765452742515535`"}], ",", 
         RowBox[{"-", "0.6950909890330137`"}], ",", 
         RowBox[{"-", "0.4180072351690044`"}], ",", 
         RowBox[{"-", "0.4418512891309099`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7724886931627633`"}], ",", 
         RowBox[{"-", "0.4820356927207592`"}], ",", 
         RowBox[{"-", "0.19497237198138961`"}], ",", 
         RowBox[{"-", "0.8429712097210541`"}], ",", 
         RowBox[{"-", "0.09190001168084949`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.44203708332974856`"}], ",", 
         RowBox[{"-", "0.6385391887332408`"}], ",", 
         RowBox[{"-", "0.3266561656771011`"}], ",", 
         RowBox[{"-", "0.827943917204041`"}], ",", 
         RowBox[{"-", "0.652248870912662`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.0015491324487975078`"}], ",", 
         RowBox[{"-", "0.5612851561510303`"}], ",", 
         RowBox[{"-", "0.38291316372255046`"}], ",", 
         RowBox[{"-", "0.666790571572228`"}], ",", 
         RowBox[{"-", "0.33178978970200734`"}], ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.33243888564123597`", ",", "0.03557821215738744`", ",", 
         "0.6527791870094143`", ",", "0.36115410057411984`", ",", 
         "0.03363433550184438`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", "0.4121234864089409`",
        ",", "0.34787017604242804`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "11.74152467368342399504482999012272166859`20."}], ",", 
       "0.3418760974638247977563364221301640398193695345015637456225`20.", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5769806824989967`", ",", "0.009092101232962542`", ",", 
         "0.2632776768756195`", ",", "0.13171976413512798`", ",", 
         "0.018929775257293106`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.22083866425687582`"}], ",", 
         RowBox[{"-", "0.5245143753672457`"}], ",", 
         RowBox[{"-", "0.8153878204282958`"}], ",", 
         RowBox[{"-", "0.17009413123681272`"}], ",", 
         RowBox[{"-", "0.02586629227548609`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.6815431656461917`"}], ",", 
         RowBox[{"-", "0.7234878087474463`"}], ",", 
         RowBox[{"-", "0.7280570479070643`"}], ",", 
         RowBox[{"-", "0.3873271035422454`"}], ",", 
         RowBox[{"-", "0.35488699996909057`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.8955438915434053`"}], ",", 
         RowBox[{"-", "0.07580817699440223`"}], ",", 
         RowBox[{"-", "0.3857779710934479`"}], ",", 
         RowBox[{"-", "0.7936018438180603`"}], ",", 
         RowBox[{"-", "0.5126307278208548`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.40901760542217425`"}], ",", 
         RowBox[{"-", "0.05398818139144046`"}], ",", 
         RowBox[{"-", "0.12604072945929623`"}], ",", 
         RowBox[{"-", "0.5482089399782422`"}], ",", 
         RowBox[{"-", "0.06179679243158853`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.41514228196556036`"}], ",", 
         RowBox[{"-", "0.1596750649611407`"}], ",", 
         RowBox[{"-", "0.9603324263871831`"}], ",", 
         RowBox[{"-", "0.4096669684740166`"}], ",", 
         RowBox[{"-", "0.19430361770868454`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.6351606895938949`"}], ",", 
         RowBox[{"-", "0.14494460595888736`"}], ",", 
         RowBox[{"-", "0.2395728372372038`"}], ",", 
         RowBox[{"-", "0.16843732543319845`"}], ",", 
         RowBox[{"-", "0.9536175239477033`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.4214567972114409`"}], ",", 
         RowBox[{"-", "0.5115157893301396`"}], ",", 
         RowBox[{"-", "0.781110221890953`"}], ",", 
         RowBox[{"-", "0.5987305239786127`"}], ",", 
         RowBox[{"-", "0.5259129056680356`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.4357076123357374`"}], ",", 
         RowBox[{"-", "0.3953322507975051`"}], ",", 
         RowBox[{"-", "0.8051286801605524`"}], ",", 
         RowBox[{"-", "0.013282177847180887`"}], ",", 
         RowBox[{"-", "0.026690006913563158`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.34134406940606465`"}], ",", 
         RowBox[{"-", "0.6790879507012562`"}], ",", 
         RowBox[{"-", "0.4650732378689387`"}], ",", 
         RowBox[{"-", "0.9648932144819745`"}], ",", 
         RowBox[{"-", "0.9262017874405043`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.5194128857401155`"}], ",", 
         RowBox[{"-", "0.5047408114817555`"}], ",", 
         RowBox[{"-", "0.555226246007958`"}], ",", 
         RowBox[{"-", "0.7318981697318198`"}], ",", 
         RowBox[{"-", "0.8842521961462205`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.3597962055228682`"}], ",", 
         RowBox[{"-", "0.3156534087707542`"}], ",", 
         RowBox[{"-", "0.5634608442986213`"}], ",", 
         RowBox[{"-", "0.9306346721985173`"}], ",", 
         RowBox[{"-", "0.9383394083114273`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.8041376194406146`"}], ",", 
         RowBox[{"-", "0.7823506224076684`"}], ",", 
         RowBox[{"-", "0.33190414821990455`"}], ",", 
         RowBox[{"-", "0.41242650264339165`"}], ",", 
         RowBox[{"-", "0.3684300071048773`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.38701837161016317`"}], ",", 
         RowBox[{"-", "0.5267754680593522`"}], ",", 
         RowBox[{"-", "0.39914432479621076`"}], ",", 
         RowBox[{"-", "0.3417400001913141`"}], ",", 
         RowBox[{"-", "0.045674302204098516`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.8476875173580961`"}], ",", 
         RowBox[{"-", "0.934071086927272`"}], ",", 
         RowBox[{"-", "0.3768467857093396`"}], ",", 
         RowBox[{"-", "0.11947251476359422`"}], ",", 
         RowBox[{"-", "0.32827463161798065`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.4293302754455165`"}], ",", 
         RowBox[{"-", "0.8216205397013816`"}], ",", 
         RowBox[{"-", "0.38757434503177446`"}], ",", 
         RowBox[{"-", "0.4440224354717601`"}], ",", 
         RowBox[{"-", "0.06953406992264832`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.5059671309306274`"}], ",", 
         RowBox[{"-", "0.8241135007331531`"}], ",", 
         RowBox[{"-", "0.5133877632732429`"}], ",", 
         RowBox[{"-", "0.13119466161122106`"}], ",", 
         RowBox[{"-", "0.7018295114900128`"}], ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9582371216745151`", ",", "0.8185163849466617`", ",", 
         "0.2812318410321706`", ",", "0.6666004956148645`", ",", 
         "0.34525549328467836`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0"}], "}"}]}], "}"}], ",", "0.3452918530060139`",
        ",", "0.6803761658283813`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "12.14968866211540111091370881501271332342`20."}], ",", 
       "0.1968807054194547377330165252742625250399132278206969010595`20.", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0623987132234509`", ",", "0.656569296893993`", ",", 
         "0.022828401874352373`", ",", "0.11295031770839731`", ",", 
         "0.14525327029980653`"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9916595041938215`"}], ",", 
         RowBox[{"-", "0.6090702045112231`"}], ",", 
         RowBox[{"-", "0.8070206296358899`"}], ",", 
         RowBox[{"-", "0.3855527472443466`"}], ",", 
         RowBox[{"-", "0.6148127184844819`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.48959768974762885`"}], ",", 
         RowBox[{"-", "0.4787459980179093`"}], ",", 
         RowBox[{"-", "0.95622247179883`"}], ",", 
         RowBox[{"-", "0.7931921787831003`"}], ",", 
         RowBox[{"-", "0.10202334471585428`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.03472356254614917`"}], ",", 
         RowBox[{"-", "0.8866884018761817`"}], ",", 
         RowBox[{"-", "0.28722504785247294`"}], ",", 
         RowBox[{"-", "0.27790984398270113`"}], ",", 
         RowBox[{"-", "0.5213357992729064`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7554937402649606`"}], ",", 
         RowBox[{"-", "0.5853955363624601`"}], ",", 
         RowBox[{"-", "0.23614696565721638`"}], ",", 
         RowBox[{"-", "0.3398521842195681`"}], ",", 
         RowBox[{"-", "0.03672558129713133`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.25199603197732456`"}], ",", 
         RowBox[{"-", "0.5814024589418947`"}], ",", 
         RowBox[{"-", "0.6851440372255819`"}], ",", 
         RowBox[{"-", "0.7171017471255126`"}], ",", 
         RowBox[{"-", "0.260336527783503`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9723322544306717`"}], ",", 
         RowBox[{"-", "0.878123407589692`"}], ",", 
         RowBox[{"-", "0.33154899988116604`"}], ",", 
         RowBox[{"-", "0.6455238092990211`"}], ",", 
         RowBox[{"-", "0.4827345646830429`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.3993774095717827`"}], ",", 
         RowBox[{"-", "0.3753265280823359`"}], ",", 
         RowBox[{"-", "0.8523316305159208`"}], ",", 
         RowBox[{"-", "0.3807112199671886`"}], ",", 
         RowBox[{"-", "0.3646538470256335`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.4886381262061542`"}], ",", 
         RowBox[{"-", "0.5651065826634478`"}], ",", 
         RowBox[{"-", "0.10280137598448735`"}], ",", 
         RowBox[{"-", "0.8433180477527271`"}], ",", 
         RowBox[{"-", "0.7331443859411935`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.9797110463009877`"}], ",", 
         RowBox[{"-", "0.8666544103272711`"}], ",", 
         RowBox[{"-", "0.503465863533159`"}], ",", 
         RowBox[{"-", "0.6964188046440623`"}], ",", 
         RowBox[{"-", "0.7277150143236631`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.2852519513853763`"}], ",", 
         RowBox[{"-", "0.8183218263075771`"}], ",", 
         RowBox[{"-", "0.9793170575185496`"}], ",", 
         RowBox[{"-", "0.4673784865401601`"}], ",", 
         RowBox[{"-", "0.3129196969547047`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.940198418717885`"}], ",", 
         RowBox[{"-", "0.6477680576373837`"}], ",", 
         RowBox[{"-", "0.821854677241139`"}], ",", 
         RowBox[{"-", "0.8301851322716618`"}], ",", 
         RowBox[{"-", "0.5408210091461023`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.27244152955504763`"}], ",", 
         RowBox[{"-", "0.9695230467252183`"}], ",", 
         RowBox[{"-", "0.4494739123044732`"}], ",", 
         RowBox[{"-", "0.1761671621204689`"}], ",", 
         RowBox[{"-", "0.7838034033488934`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.40441646406177056`"}], ",", 
         RowBox[{"-", "0.34667253631998585`"}], ",", 
         RowBox[{"-", "0.3328491143677418`"}], ",", 
         RowBox[{"-", "0.05065901740769996`"}], ",", 
         RowBox[{"-", "0.42470541776078286`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.48001812599271476`"}], ",", 
         RowBox[{"-", "0.8293832508345826`"}], ",", 
         RowBox[{"-", "0.3542402127636377`"}], ",", 
         RowBox[{"-", "0.6969904034371197`"}], ",", 
         RowBox[{"-", "0.19476617460733847`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.011061424527005648`"}], ",", 
         RowBox[{"-", "0.3749231552450881`"}], ",", 
         RowBox[{"-", "0.22961191689695948`"}], ",", 
         RowBox[{"-", "0.8818464776526338`"}], ",", 
         RowBox[{"-", "0.07086300580912053`"}], ",", 
         RowBox[{"-", "1.`"}], ",", 
         RowBox[{"-", "0.7271550976077046`"}], ",", 
         RowBox[{"-", "0.40775723965582045`"}], ",", 
         RowBox[{"-", "0.051661345380972`"}], ",", 
         RowBox[{"-", "0.5300419966630182`"}], ",", 
         RowBox[{"-", "0.45471356805265684`"}], ",", 
         RowBox[{"-", "1.`"}]}], "}"}], ",", "0.`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5617658070693978`", ",", "0.39781256692350114`", ",", 
         "0.6461251654574507`", ",", "0.3290898352962366`", ",", 
         "0.9661822711311684`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "}"}], ",", "0.7444851032434869`",
        ",", "0.9789742798251924`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "11.42525624464092325185401710963043122223`20."}], ",", 
       "0.8110663116203717417059015125891998414845435211674176255229`20.", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09229684116290468`", ",", "0.0032675294080096165`", ",", 
         "0.8102373989695026`", ",", "0.0011588023309979296`", ",", 
         "0.09303942812858522`"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{
  3.5292809348013363`*^9, 3.5292817710020933`*^9, 3.529281863603612*^9, 
   3.529282073282237*^9, 3.529282137986269*^9, 3.529282497398553*^9, {
   3.529282545135767*^9, 3.5292825582086153`*^9}, 3.529282653485301*^9, {
   3.529282824355893*^9, 3.529282903837925*^9}, 3.52928301281574*^9}]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Logistic Regression", "Section",
 CellChangeTimes->{{3.529245636568861*^9, 3.529245640740033*^9}, {
  3.529952431732183*^9, 3.5299524333555202`*^9}}],

Cell[CellGroupData[{

Cell["logp", "Subsection",
 CellChangeTimes->{{3.5299608210943203`*^9, 3.5299608212989597`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "second", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"second", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"First", "[", 
    RowBox[{"Rest", "[", "x", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "logpraw", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"logpraw", "[", 
    RowBox[{"w_", ",", " ", "f_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"w", "[", 
       RowBox[{"[", 
        RowBox[{"First", "[", 
         RowBox[{"f", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}], " ", 
      RowBox[{"second", "[", 
       RowBox[{"f", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "f", "]"}]}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "logp", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"logp", "[", 
    RowBox[{"w_", ",", " ", "f_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"max", ",", " ", "logplist"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"logplist", " ", "=", " ", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"logpraw", "[", 
          RowBox[{
           RowBox[{"w", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", " ", "f"}], "]"}], ",", " ", 
         
         RowBox[{"{", " ", 
          RowBox[{"i", ",", " ", "1", ",", " ", 
           RowBox[{"Length", "[", "w", "]"}]}], " ", "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"logplist", " ", "-", " ", 
       RowBox[{"Max", "[", "logplist", "]"}], " ", "-", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"Plus", " ", "@@", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"logplist", " ", "-", " ", 
           RowBox[{"Max", "[", "logplist", "]"}]}], "]"}]}], "]"}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5299609560491247`*^9, 3.529960998413151*^9}, {
  3.529961047976461*^9, 3.5299611496531963`*^9}, {3.529961181547943*^9, 
  3.52996124956113*^9}, {3.5299612818762302`*^9, 3.529961460331325*^9}, {
  3.5299615254446573`*^9, 3.5299615551982317`*^9}, {3.5299616413925858`*^9, 
  3.529961643846279*^9}, {3.530022381392601*^9, 3.530022447993712*^9}, {
  3.530022707296472*^9, 3.530022709400621*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for logp ", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
   3.504185890254962*^9, 3.504185890709035*^9}, {3.5042036574835863`*^9, 
   3.504203657569166*^9}, {3.504916768505199*^9, 3.504916769023423*^9}, 
   3.529260167313177*^9, {3.5299621410302753`*^9, 3.5299621412155457`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nfeatures", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nfeatures", " ", "=", " ", "17"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "instfeatures", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"instfeatures", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "6"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"!", " ", 
               RowBox[{"ListQ", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
              RowBox[{"!", " ", 
               RowBox[{"IntegerQ", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
           RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
        " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"logp", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Transpose", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Append", "[", 
             RowBox[{"#", ",", " ", "0"}], "]"}], "&"}], " ", "/@", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"(*", " ", "w", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"1", " ", "+", " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], " ", "}"}], "&"}], " ", "/@", 
          " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], " ", 
        RowBox[{"(*", " ", "f", " ", "*)"}], "\[IndentingNewLine]", "]"}]}], 
      " ", "}"}], "&"}], " ", "/@", " ", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Random", "[", "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"i", ",", " ", "1", ",", " ", 
              RowBox[{"nlabels", "  ", "-", " ", "1"}]}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"{", " ", 
           RowBox[{"j", ",", " ", "1", ",", " ", "nfeatures"}], " ", "}"}]}], 
         "\[IndentingNewLine]", "]"}], ",", " ", 
        RowBox[{"(*", " ", "w", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nfeatures", " ", "-", " ", "1"}]}], "]"}], ",", " ", 
            RowBox[{"Random", "[", "]"}]}], " ", "}"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "instfeatures"}], " ", 
           "}"}]}], "]"}]}], " ", 
       RowBox[{"(*", " ", "f", " ", "*)"}], "\[IndentingNewLine]", "}"}], ",",
       " ", 
      RowBox[{"{", " ", 
       RowBox[{"foo", ",", "1", ",", " ", "10"}], " ", "}"}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ")"}]}]}], "Input",\

 CellChangeTimes->{{3.529961680680732*^9, 3.529961722910391*^9}, {
   3.529961863474926*^9, 3.5299618847063513`*^9}, {3.52996200365142*^9, 
   3.529962055911655*^9}, {3.5299621338774014`*^9, 3.529962133912876*^9}, {
   3.530021972830516*^9, 3.530021986439197*^9}, {3.5300220191827106`*^9, 
   3.5300220193354263`*^9}, {3.530022304799243*^9, 3.5300223132422667`*^9}, {
   3.5300224626821632`*^9, 3.530022481542577*^9}, 3.530022550577656*^9, {
   3.530022590697927*^9, 3.530022609108737*^9}, {3.530022650279427*^9, 
   3.530022650388509*^9}, {3.5300227298259277`*^9, 3.530022752081091*^9}, {
   3.530042083580483*^9, 3.53004213031529*^9}, {3.53004216777103*^9, 
   3.530042185445969*^9}, 3.530042257829097*^9, {3.530047997588489*^9, 
   3.530047998098854*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.23325917898086196`", ",", "0.43990663474671204`", ",", 
         "0.7957619654041732`", ",", "0.5210428352078482`", ",", 
         "0.8559645216094244`", ",", "0.5623461050764678`", ",", 
         "0.8875413279057898`", ",", "0.40100967565040324`", ",", 
         "0.10289952249809861`", ",", "0.33644908991570566`", ",", 
         "0.9070536997033865`", ",", "0.5127797889979376`", ",", 
         "0.7139479374097529`", ",", "0.9732447571039734`", ",", 
         "0.1974203543253647`", ",", "0.7777452070734615`", ",", 
         "0.21010885662856252`", ",", "0.6618342234083081`", ",", 
         "0.8163518234158065`", ",", "0.10047564398904235`", ",", 
         "0.3795563792406797`", ",", "0.507044706518089`", ",", 
         "0.832269517031308`", ",", "0.8348438262589305`", ",", 
         "0.14629720025981777`", ",", "0.06713807177137693`", ",", 
         "0.036507551627134815`", ",", "0.3138009910510822`", ",", 
         "0.29033267865039336`", ",", "0.5047919666949092`", ",", 
         "0.148966223721345`", ",", "0.912791315400679`", ",", 
         "0.18743315615229475`", ",", "0.16834287677920357`", ",", 
         "0.24191252401795854`", ",", "0.4000115264027414`", ",", 
         "0.4734852187425419`", ",", "0.1950981196752301`", ",", 
         "0.04449216969259384`", ",", "0.6222663193292799`", ",", 
         "0.26337636211397936`", ",", "0.533263896266922`", ",", 
         "0.22814034627678736`", ",", "0.5217906753402376`", ",", 
         "0.8838199828732997`", ",", "0.02621918974883311`", ",", 
         "0.3958708292454794`", ",", "0.6869468490813071`", ",", 
         "0.7375227826134819`", ",", "0.9590811179774562`", ",", 
         "0.3593632776183446`", ",", "0.3731458580302249`", ",", 
         "0.4471901039630885`", ",", "0.454289151282547`", ",", 
         "0.21039705389699956`", ",", "0.46035454262954584`", ",", 
         "0.2597569478107937`", ",", "0.2859462745033434`", ",", 
         "0.968484529879041`", ",", "0.06034301622680444`", ",", 
         "0.7862717290682518`", ",", "0.0908481548281133`", ",", 
         "0.9239923601864471`", ",", "0.43807669689752454`", ",", 
         "0.5228953669542725`", ",", "0.5575842585611912`", ",", 
         "0.6958520139096598`", ",", "0.916286021557287`", ",", 
         "0.6390753840809729`", ",", "0.5313650688123581`", ",", 
         "0.29998118466418044`", ",", "0.22933917247597985`", ",", 
         "0.901552601467491`", ",", "0.5722839508349019`", ",", 
         "0.9406179070458359`", ",", "0.856193314445755`", ",", 
         "0.4543624975044025`", ",", "0.11799479955235496`", ",", 
         "0.7302208531488363`", ",", "0.3958387718162092`", ",", 
         "0.19460554969360877`", ",", "0.8320485250490115`", ",", 
         "0.7617363232697952`", ",", "0.3354957555894047`", ",", 
         "0.4083338206253569`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"14", ",", "0.7412003702208982`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "0.8377439630833481`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.8974190586918802`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "0.8854384536710844`"}], "}"}]}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.258666623945721`"}], ",", 
       RowBox[{"-", "2.1018272440750474`"}], ",", 
       RowBox[{"-", "1.1566393031166218`"}], ",", 
       RowBox[{"-", "1.6349985785764718`"}], ",", 
       RowBox[{"-", "1.4816947831221348`"}], ",", 
       RowBox[{"-", "3.3095925031295343`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.18361611165970698`", ",", "0.14189194917368825`", ",", 
         "0.9811330371345932`", ",", "0.24636306959011153`", ",", 
         "0.6522510428473488`", ",", "0.8419107645095079`", ",", 
         "0.7517938646586134`", ",", "0.3448104681226205`", ",", 
         "0.07996709201244691`", ",", "0.9012928574636719`", ",", 
         "0.8956005502128584`", ",", "0.890447970618218`", ",", 
         "0.961972292460092`", ",", "0.17107200431483566`", ",", 
         "0.49976177839664926`", ",", "0.6958424209246092`", ",", 
         "0.12992376741108042`", ",", "0.40933568104504037`", ",", 
         "0.1642660228072445`", ",", "0.28750860029925235`", ",", 
         "0.3887233971901822`", ",", "0.5715917179616923`", ",", 
         "0.2668469641153643`", ",", "0.4020701466281679`", ",", 
         "0.20510728553047516`", ",", "0.42969976878800403`", ",", 
         "0.2857139269807711`", ",", "0.1557070770380564`", ",", 
         "0.5528562426831263`", ",", "0.5877890042784962`", ",", 
         "0.5339200623221577`", ",", "0.8108966089154359`", ",", 
         "0.4728891506706794`", ",", "0.6864961468148243`", ",", 
         "0.6383195121092993`", ",", "0.9204486382972178`", ",", 
         "0.5109168582105874`", ",", "0.5154241424999886`", ",", 
         "0.13855773371265004`", ",", "0.22460621737260858`", ",", 
         "0.38099309079950705`", ",", "0.10608846145494823`", ",", 
         "0.9742917109054056`", ",", "0.9370976170733563`", ",", 
         "0.9922696936093249`", ",", "0.5344967434932559`", ",", 
         "0.7074447467900412`", ",", "0.5350274704451883`", ",", 
         "0.7871624080788497`", ",", "0.10479697470525187`", ",", 
         "0.42173081980927013`", ",", "0.3793203934071319`", ",", 
         "0.2343061653957234`", ",", "0.5170079704267556`", ",", 
         "0.8878107574871125`", ",", "0.5684237844916961`", ",", 
         "0.761417014725044`", ",", "0.8305118236119314`", ",", 
         "0.24949124537781317`", ",", "0.6479751461944782`", ",", 
         "0.25050015651445656`", ",", "0.3150876811119428`", ",", 
         "0.11093351166516315`", ",", "0.4233689288218696`", ",", 
         "0.8695070657149495`", ",", "0.20899921965699456`", ",", 
         "0.13664180075975763`", ",", "0.48627131174851335`", ",", 
         "0.8772373721056246`", ",", "0.6745024761637386`", ",", 
         "0.4291970539697164`", ",", "0.9512438413033251`", ",", 
         "0.0900749640267749`", ",", "0.5697055014584868`", ",", 
         "0.007466234160446266`", ",", "0.5719234478961932`", ",", 
         "0.8557687986310515`", ",", "0.05269753103173112`", ",", 
         "0.1196554766733338`", ",", "0.003499663404497144`", ",", 
         "0.0943517839060075`", ",", "0.22218570741979973`", ",", 
         "0.8701642312955207`", ",", "0.355524517210019`", ",", 
         "0.843851627391551`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"15", ",", "0.907098026307857`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "0.7592307196303575`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "0.9321555883881494`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "0.9743445616766014`"}], "}"}]}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.629829131508137`"}], ",", 
       RowBox[{"-", "1.2648091809357078`"}], ",", 
       RowBox[{"-", "2.548348102546854`"}], ",", 
       RowBox[{"-", "1.711518913893709`"}], ",", 
       RowBox[{"-", "1.4739800373730305`"}], ",", 
       RowBox[{"-", "3.383468727594598`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.6980988066508624`", ",", "0.6225889188705999`", ",", 
         "0.445884276639636`", ",", "0.09710718957097686`", ",", 
         "0.02359633048712377`", ",", "0.19339186490088348`", ",", 
         "0.4946404353363109`", ",", "0.007032225544201954`", ",", 
         "0.453890829028637`", ",", "0.1859256307404372`", ",", 
         "0.9227169874401178`", ",", "0.15126342691315045`", ",", 
         "0.4011932979969059`", ",", "0.06627015406710339`", ",", 
         "0.9192173240356206`", ",", "0.056911643007142944`", ",", 
         "0.17900759057710616`", ",", "0.19610592277158276`", ",", 
         "0.5636928068256016`", ",", "0.21306001561559199`", ",", 
         "0.27190956426924917`", ",", "0.4368752031412253`", ",", 
         "0.6315372184374523`", ",", "0.23871545393899052`", ",", 
         "0.5738107576183868`", ",", "0.8142862842706254`", ",", 
         "0.1856529417978163`", ",", "0.14160826436801366`", ",", 
         "0.550214427131263`", ",", "0.620894419369742`", ",", 
         "0.6910125064615054`", ",", "0.13457603882381172`", ",", 
         "0.09632359810262602`", ",", "0.43496878862930477`", ",", 
         "0.7682955190213876`", ",", "0.9833126119106612`", ",", 
         "0.6951303001057201`", ",", "0.36869863456220137`", ",", 
         "0.849078194985767`", ",", "0.9264009689035183`", ",", 
         "0.5161227095286139`", ",", "0.17259271179061858`", ",", 
         "0.2853853881601653`", ",", "0.7133409532879263`", ",", 
         "0.24421314525936477`", ",", "0.7357175086493933`", ",", 
         "0.653848169722713`", ",", "0.47462549934893583`", ",", 
         "0.6704023876409779`", ",", "0.9214312243787679`", ",", 
         "0.4681952279248967`", ",", "0.33301723498092217`", ",", 
         "0.12018796050971496`", ",", "0.30053680500902596`", ",", 
         "0.7771827214633914`", ",", "0.19844119615711042`", ",", 
         "0.02386436240708894`", ",", "0.8655680163797213`", ",", 
         "0.008887202442003759`", ",", "0.21512858424644918`", ",", 
         "0.3287340623013688`", ",", "0.4968693818175199`", ",", 
         "0.15980900745623677`", ",", "0.28872761534293084`", ",", 
         "0.8126113527727549`", ",", "0.3242766700269013`", ",", 
         "0.8744236192960715`", ",", "0.5753866620550045`", ",", 
         "0.5683982075133901`", ",", "0.588559161377508`", ",", 
         "0.22057544957335845`", ",", "0.10076116270606872`", ",", 
         "0.8979958198724121`", ",", "0.6671279369987401`", ",", 
         "0.7523802216484617`", ",", "0.7677439277251465`", ",", 
         "0.7778078593626971`", ",", "0.3665911319897141`", ",", 
         "0.9751975001850703`", ",", "0.5693027315680361`", ",", 
         "0.7539434969556081`", ",", "0.5010231156099929`", ",", 
         "0.9663102977430666`", ",", "0.354174147321587`", ",", 
         "0.4252094346542394`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0.004153733792473004`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "0.8065012902868298`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.0654465319786561`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "0.6125980818814846`"}], "}"}]}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.7906255186321713`"}], ",", 
       RowBox[{"-", "1.7485365702279994`"}], ",", 
       RowBox[{"-", "1.732446772898324`"}], ",", 
       RowBox[{"-", "1.9629941089723466`"}], ",", 
       RowBox[{"-", "1.4020150553359871`"}], ",", 
       RowBox[{"-", "2.346257298234863`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.6798770637655718`", ",", "0.9320776709907583`", ",", 
         "0.4900598699236516`", ",", "0.04419987436809447`", ",", 
         "0.09131790238806375`", ",", "0.7115022214173999`", ",", 
         "0.38929870721758286`", ",", "0.14620405449568238`", ",", 
         "0.4241899653893237`", ",", "0.9591219997689382`", ",", 
         "0.6215547794924363`", ",", "0.36839619513298527`", ",", 
         "0.057598833399609604`", ",", "0.9839244995838677`", ",", 
         "0.052252047924400136`", ",", "0.614452698177377`", ",", 
         "0.5565757177896168`", ",", "0.017614201840801168`", ",", 
         "0.6980779006028132`", ",", "0.1892432635231377`", ",", 
         "0.5524219839971437`", ",", "0.21111291155397133`", ",", 
         "0.632631368624157`", ",", "0.5766451816416531`", ",", 
         "0.872544920231572`", ",", "0.27903524056321294`", ",", 
         "0.14257149870050548`", ",", "0.5324453072735587`", ",", 
         "0.7812270178435082`", ",", "0.567533019145813`", ",", 
         "0.7532727914829226`", ",", "0.3862412527778763`", ",", 
         "0.35703705245418454`", ",", "0.6084110193768749`", ",", 
         "0.13171801199048636`", ",", "0.017845057644891048`", ",", 
         "0.29943821905457496`", ",", "0.6244865197930071`", ",", 
         "0.0794659640660862`", ",", "0.40339235946751395`", ",", 
         "0.7428625012649582`", ",", "0.6068723179522059`", ",", 
         "0.38138806346327303`", ",", "0.21414909594437628`", ",", 
         "0.1904405172678145`", ",", "0.3957594063982346`", ",", 
         "0.748756694839116`", ",", "0.6375039143027231`", ",", 
         "0.3178955970362425`", ",", "0.11672416583502163`", ",", 
         "0.6061851961386105`", ",", "0.10505860702916442`", ",", 
         "0.5366685791927343`", ",", "0.5491911466892085`", ",", 
         "0.8529124046556879`", ",", "0.7188173542512881`", ",", 
         "0.17963152673854968`", ",", "0.9407801273123337`", ",", 
         "0.7211943926652016`", ",", "0.700972296606397`", ",", 
         "0.8801933076839747`", ",", "0.31629360751932667`", ",", 
         "0.6417284285991153`", ",", "0.2975799371388831`", ",", 
         "0.13733080641901654`", ",", "0.7094212895671207`", ",", 
         "0.2603403651358423`", ",", "0.08343084119450682`", ",", 
         "0.9468902891512021`", ",", "0.31366188316888616`", ",", 
         "0.5115836702967262`", ",", "0.4459269268917837`", ",", 
         "0.6289946921149596`", ",", "0.19693771733386456`", ",", 
         "0.9053984741581158`", ",", "0.3408683198626193`", ",", 
         "0.09232611292222534`", ",", "0.647746570644656`", ",", 
         "0.052486069502427915`", ",", "0.6220509656113312`", ",", 
         "0.9126945861836756`", ",", "0.7069664433323223`", ",", 
         "0.3312916768372264`", ",", "0.9210786690049341`", ",", 
         "0.0325012784997009`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0.3906728358129956`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "0.6895632482381111`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", "0.623498731866051`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.8951704720806843`"}], "}"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.2418769434395693`"}], ",", 
       RowBox[{"-", "1.2837677361038615`"}], ",", 
       RowBox[{"-", "1.6458271816921903`"}], ",", 
       RowBox[{"-", "2.11964514165804`"}], ",", 
       RowBox[{"-", "2.6773776363587083`"}], ",", 
       RowBox[{"-", "2.947011828222226`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.6812515462458748`", ",", "0.42922288310226875`", ",", 
         "0.5400678906715441`", ",", "0.9482801829294824`", ",", 
         "0.3675896630769887`", ",", "0.9176392128055425`", ",", 
         "0.09414096377976047`", ",", "0.31928549081452273`", ",", 
         "0.17065194574312414`", ",", "0.012240738647426683`", ",", 
         "0.7532726439171412`", ",", "0.22695937789229742`", ",", 
         "0.5229053750984681`", ",", "0.9597546691449987`", ",", 
         "0.13122167830581002`", ",", "0.31426479170862176`", ",", 
         "0.815938931766146`", ",", "0.6284629923077724`", ",", 
         "0.21014300930087593`", ",", "0.28176351320892085`", ",", 
         "0.4252660959531503`", ",", "0.9388997440696614`", ",", 
         "0.586644277434825`", ",", "0.3865930411282365`", ",", 
         "0.7440145497072754`", ",", "0.5096768609673925`", ",", 
         "0.04657638676328075`", ",", "0.43831285819875415`", ",", 
         "0.3764248866302868`", ",", "0.5920376481618501`", ",", 
         "0.9524354229835202`", ",", "0.11902736738423142`", ",", 
         "0.20577294088716264`", ",", "0.5797969095144234`", ",", 
         "0.19916277906637908`", ",", "0.892067989491934`", ",", 
         "0.6828675657886945`", ",", "0.6200422403694246`", ",", 
         "0.06794110076056906`", ",", "0.5778031977833122`", ",", 
         "0.8669286340225485`", ",", "0.9915792480616522`", ",", 
         "0.8577980914596931`", ",", "0.29603968457439134`", ",", 
         "0.4416625380693982`", ",", "0.052679503991990916`", ",", 
         "0.2711538140248682`", ",", "0.9094466434461549`", ",", 
         "0.6976479883621227`", ",", "0.5430026430245983`", ",", 
         "0.22457742726158744`", ",", "0.4711337852474007`", ",", 
         "0.321223101731836`", ",", "0.9509649948627483`", ",", 
         "0.2721420042780672`", ",", "0.35210641786316926`", ",", 
         "0.11545016084467337`", ",", "0.3711680853483249`", ",", 
         "0.0729792252116881`", ",", "0.46003842837123526`", ",", 
         "0.4325825950559789`", ",", "0.7511258449789003`", ",", 
         "0.0050381244511190516`", ",", "0.8822352305879231`", ",", 
         "0.5656539610334304`", ",", "0.759546596917248`", ",", 
         "0.14724003299142593`", ",", "0.5861955460135316`", ",", 
         "0.12399142296403216`", ",", "0.7068670929252572`", ",", 
         "0.8760862189665577`", ",", "0.6767489025673769`", ",", 
         "0.4263434346019094`", ",", "0.16386444990065877`", ",", 
         "0.6515087917049703`", ",", "0.20561511731997614`", ",", 
         "0.1051203328700734`", ",", "0.21289945503791047`", ",", 
         "0.3793667874269031`", ",", "0.8535086994568069`", ",", 
         "0.9896701720254`", ",", "0.8417313696895856`", ",", 
         "0.306387562215215`", ",", "0.3934702710855716`", ",", 
         "0.5570875769694211`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"7", ",", "0.09060552471068528`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"14", ",", "0.30134943776409595`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"14", ",", "0.5112350404976486`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"13", ",", "0.9914336159359907`"}], "}"}]}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.1889548688390568`"}], ",", 
       RowBox[{"-", "1.9769493029770306`"}], ",", 
       RowBox[{"-", "1.7509219695818263`"}], ",", 
       RowBox[{"-", "2.472476436883081`"}], ",", 
       RowBox[{"-", "1.4521453578791264`"}], ",", 
       RowBox[{"-", "2.734715249309368`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.3310589277934372`", ",", "0.15410940477267002`", ",", 
         "0.9250394944841168`", ",", "0.8674421929719586`", ",", 
         "0.6241918348681801`", ",", "0.2780231858061123`", ",", 
         "0.24829059191674005`", ",", "0.44109875837004914`", ",", 
         "0.46032738496752135`", ",", "0.626514394101142`", ",", 
         "0.04267547459676393`", ",", "0.33597842549997575`", ",", 
         "0.24742792992961085`", ",", "0.2471476066742389`", ",", 
         "0.18916677513995706`", ",", "0.3463082534745757`", ",", 
         "0.40569656024002526`", ",", "0.940760044459024`", ",", 
         "0.7956965040543854`", ",", "0.7892206765051546`", ",", 
         "0.31509103552934`", ",", "0.639410606694928`", ",", 
         "0.2844614635567369`", ",", "0.7977870605691639`", ",", 
         "0.9840321077359028`", ",", "0.48530120192225795`", ",", 
         "0.35942196907262003`", ",", "0.9303448675972054`", ",", 
         "0.3598402728677227`", ",", "0.20727801611614566`", ",", 
         "0.11113137715587998`", ",", "0.4892461092271562`", ",", 
         "0.8995128879002013`", ",", "0.5807636220150036`", ",", 
         "0.06845590255911606`", ",", "0.15326768372718047`", ",", 
         "0.6520849579705905`", ",", "0.33361601534076474`", ",", 
         "0.879289127419159`", ",", "0.8069594302526047`", ",", 
         "0.2463883977305652`", ",", "0.39285597088174085`", ",", 
         "0.08359262336477352`", ",", "0.0177387537474501`", ",", 
         "0.9312973622012252`", ",", "0.7534453641868128`", ",", 
         "0.7991311598080366`", ",", "0.2199516931782862`", ",", 
         "0.9472652544653224`", ",", "0.26814416226455495`", ",", 
         "0.4397091907354166`", ",", "0.2896068255810808`", ",", 
         "0.5874249815975997`", ",", "0.06086614614840928`", ",", 
         "0.3285778135795366`", ",", "0.8003607163539246`", ",", 
         "0.6879120936973984`", ",", "0.48010252413340565`", ",", 
         "0.26012191102042054`", ",", "0.6470930326267441`", ",", 
         "0.03582713572680792`", ",", "0.14648650879264088`", ",", 
         "0.38083278360126155`", ",", "0.8401336023741394`", ",", 
         "0.7894387379962428`", ",", "0.7536305379109001`", ",", 
         "0.297240160236488`", ",", "0.8223948486266893`", ",", 
         "0.8581413757950175`", ",", "0.0001851737240871436`", ",", 
         "0.4981090004284514`", ",", "0.6024431554484031`", ",", 
         "0.9108761213296951`", ",", "0.7320410114595322`", ",", 
         "0.05839980969303483`", ",", "0.3128363298673223`", ",", 
         "0.3234511397320953`", ",", "0.6711748653111229`", ",", 
         "0.7298219961134982`", ",", "0.5124756135133977`", ",", 
         "0.6355390460346969`", ",", "0.1910723411777173`", ",", 
         "0.4697000850930777`", ",", "0.8653825808866535`", ",", 
         "0.599711910307889`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"9", ",", "0.04458583238507641`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"15", ",", "0.08886730149181613`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0.025248978512514172`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "0.8102731723116463`"}], "}"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.033619803601717`"}], ",", 
       RowBox[{"-", "1.725014049038312`"}], ",", 
       RowBox[{"-", "1.3826396050001497`"}], ",", 
       RowBox[{"-", "1.6027883878715912`"}], ",", 
       RowBox[{"-", "2.0632957023888965`"}], ",", 
       RowBox[{"-", "2.1920802877204317`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.2909552944741764`", ",", "0.7916271412553281`", ",", 
         "0.20285412988582488`", ",", "0.9521317965166287`", ",", 
         "0.29077012075008923`", ",", "0.29351814082687666`", ",", 
         "0.6004109744374218`", ",", "0.04125567518693367`", ",", 
         "0.5587291092905571`", ",", "0.23511833113384184`", ",", 
         "0.28757464457009946`", ",", "0.7178045354548384`", ",", 
         "0.8875542439794342`", ",", "0.5052963350203437`", ",", 
         "0.7750990310567017`", ",", "0.08226548942014143`", ",", 
         "0.6964819028017168`", ",", "0.03559624992726594`", ",", 
         "0.9097164501700482`", ",", "0.48255357911225244`", ",", 
         "0.6518960704166404`", ",", "0.9467289484354499`", ",", 
         "0.884467471657534`", ",", "0.6722804068006062`", ",", 
         "0.36094077594246404`", ",", "0.15510180718012173`", ",", 
         "0.6816133417717092`", ",", "0.7201486102839775`", ",", 
         "0.07017065519237481`", ",", "0.861583666353245`", ",", 
         "0.08120236733428737`", ",", "0.6788929350970437`", ",", 
         "0.5114415459018178`", ",", "0.6264653352194032`", ",", 
         "0.7936277227641879`", ",", "0.9610883996422054`", ",", 
         "0.6238873019223836`", ",", "0.1211690001990596`", ",", 
         "0.018528691707486167`", ",", "0.878822910222064`", ",", 
         "0.9274053991206668`", ",", "0.08557275027179366`", ",", 
         "0.10881224153743799`", ",", "0.39626933110981155`", ",", 
         "0.2755093287040264`", ",", "0.13884380183634384`", ",", 
         "0.22434476987990398`", ",", "0.7239889243092054`", ",", 
         "0.9145685527615623`", ",", "0.9837419946562221`", ",", 
         "0.5427314281081949`", ",", "0.0038403140252279396`", ",", 
         "0.8443978975691876`", ",", "0.12215832830297704`", ",", 
         "0.46152906077390743`", ",", "0.32494737892818415`", ",", 
         "0.33295635166736975`", ",", "0.49569299308357384`", ",", 
         "0.6679013380097195`", ",", "0.36385897928597877`", ",", 
         "0.7090690497449861`", ",", "0.3745239928845142`", ",", 
         "0.6493726463022333`", ",", "0.4850360690639148`", ",", 
         "0.7816636506243193`", ",", "0.2889512426127206`", ",", 
         "0.5405604047647954`", ",", "0.08876673795410321`", ",", 
         "0.5061543219202929`", ",", "0.15010744077637672`", ",", 
         "0.3162156348848914`", ",", "0.36477781364489786`", ",", 
         "0.5915857691587305`", ",", "0.16636544612015464`", ",", 
         "0.7734842067766966`", ",", "0.3609374996196699`", ",", 
         "0.747187871589543`", ",", "0.04420711781717759`", ",", 
         "0.3119551460027891`", ",", "0.03599012069148572`", ",", 
         "0.4142315199221732`", ",", "0.5485141247336037`", ",", 
         "0.6440538079930695`", ",", "0.672131141405507`", ",", 
         "0.7051624701771871`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"14", ",", "0.17399013184908954`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"15", ",", "0.9946811616908362`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"11", ",", "0.18709507234159223`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", "0.9234988195528678`"}], "}"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.1110667663827263`"}], ",", 
       RowBox[{"-", "1.6379629754100076`"}], ",", 
       RowBox[{"-", "1.8058743316239865`"}], ",", 
       RowBox[{"-", "1.4053151573199272`"}], ",", 
       RowBox[{"-", "1.567182931234127`"}], ",", 
       RowBox[{"-", "2.7141210382744463`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.885038889236369`", ",", "0.4541207569260408`", ",", 
         "0.098328334387489`", ",", "0.41734449763257486`", ",", 
         "0.7349314484599923`", ",", "0.13790512204114944`", ",", 
         "0.7335505207425912`", ",", "0.8257587284738444`", ",", 
         "0.5685660023398376`", ",", "0.36442091526445286`", ",", 
         "0.3726130211229213`", ",", "0.07857085688430131`", ",", 
         "0.52435888452266`", ",", "0.052465769261663714`", ",", 
         "0.33662290043143556`", ",", "0.6643393369621281`", ",", 
         "0.9758447597890563`", ",", "0.40841196126859414`", ",", 
         "0.6644917590259286`", ",", "0.959176866784941`", ",", 
         "0.8018546279399668`", ",", "0.4137307995777579`", ",", 
         "0.4773966866843363`", ",", "0.03567804723207319`", ",", 
         "0.9168157387035978`", ",", "0.9596100426517171`", ",", 
         "0.3790683522968473`", ",", "0.6183335495994983`", ",", 
         "0.1818842902436055`", ",", "0.8217049206105677`", ",", 
         "0.6455178315542561`", ",", "0.792574821125654`", ",", 
         "0.6133182879037679`", ",", "0.4572840053461148`", ",", 
         "0.2729048104313349`", ",", "0.7140039642413527`", ",", 
         "0.08895940338110787`", ",", "0.4048182360844511`", ",", 
         "0.9362819099998994`", ",", "0.04966462727922462`", ",", 
         "0.11311464359205162`", ",", "0.996406274815857`", ",", 
         "0.2717901509739708`", ",", "0.09048776049428364`", ",", 
         "0.3112600156520849`", ",", "0.582675475238099`", ",", 
         "0.7943934642896344`", ",", "0.05480971326221045`", ",", 
         "0.39444427694848716`", ",", "0.623065432586382`", ",", 
         "0.41532511199278715`", ",", "0.43647616366271214`", ",", 
         "0.21255998670488166`", ",", "0.8013605119758144`", ",", 
         "0.769807280438531`", ",", "0.6439013425370581`", ",", 
         "0.5992416988011138`", ",", "0.3440765066296995`", ",", 
         "0.49690247000719606`", ",", "0.9298973782957054`", ",", 
         "0.5102822954200059`", ",", "0.9392582705452485`", ",", 
         "0.5606205600072967`", ",", "0.8802327510164808`", ",", 
         "0.39716765182795427`", ",", "0.9428519957293915`", ",", 
         "0.28883040903332585`", ",", "0.7897449905221972`", ",", 
         "0.08590763617586938`", ",", "0.36017652049129245`", ",", 
         "0.4944369447436914`", ",", "0.7349352772599868`", ",", 
         "0.6914633592273822`", ",", "0.7371110879049104`", ",", 
         "0.07911183275090425`", ",", "0.29845911359727456`", ",", 
         "0.47890337252250054`", ",", "0.9357505759290962`", ",", 
         "0.3093045523123733`", ",", "0.6545577710602164`", ",", 
         "0.8796616737213868`", ",", "0.5916740692993966`", ",", 
         "0.8124020823051773`", ",", "0.724660392764511`", ",", 
         "0.3693793783013809`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "0.6524157987541481`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "0.2517815222978806`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.8444276417480302`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"15", ",", "0.9722117264734266`"}], "}"}]}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.8114354509113808`"}], ",", 
       RowBox[{"-", "1.31560296949876`"}], ",", 
       RowBox[{"-", "1.7399767038413938`"}], ",", 
       RowBox[{"-", "2.1174409074992564`"}], ",", 
       RowBox[{"-", "1.491194038543897`"}], ",", 
       RowBox[{"-", "3.051229636809084`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7095638030247566`", ",", "0.9629511132645547`", ",", 
         "0.05468265122583304`", ",", "0.8863040902975572`", ",", 
         "0.3493872825334641`", ",", "0.46851416852086336`", ",", 
         "0.3197473739658463`", ",", "0.19484073107017502`", ",", 
         "0.6122761946285536`", ",", "0.38940233576995914`", ",", 
         "0.021288260368571735`", ",", "0.7159373585476745`", ",", 
         "0.6765256186994576`", ",", "0.08009778345758584`", ",", 
         "0.3667304893083553`", ",", "0.8362756848262877`", ",", 
         "0.08485154940006101`", ",", "0.2676957011524086`", ",", 
         "0.6420700965438443`", ",", "0.46689630652490677`", ",", 
         "0.4324357506459129`", ",", "0.015914178854528`", ",", 
         "0.7976424547958141`", ",", "0.4946845800514802`", ",", 
         "0.7228719476211564`", ",", "0.05296306558997326`", ",", 
         "0.742959803569981`", ",", "0.6083804897539229`", ",", 
         "0.3734846650876922`", ",", "0.5844488970691099`", ",", 
         "0.4232124296041347`", ",", "0.4135397586837479`", ",", 
         "0.7612084704591384`", ",", "0.19504656129915077`", ",", 
         "0.40192416923556296`", ",", "0.6976024001360734`", ",", 
         "0.08468285175968088`", ",", "0.11494877784156494`", ",", 
         "0.035193679927207684`", ",", "0.8613267153097858`", ",", 
         "0.9998313023596198`", ",", "0.8472530766891564`", ",", 
         "0.3931235833833634`", ",", "0.394430408784879`", ",", 
         "0.5673955517137069`", ",", "0.8313388978346283`", ",", 
         "0.5954811285875493`", ",", "0.8997458287333988`", ",", 
         "0.8445236040925507`", ",", "0.7783758322446551`", ",", 
         "0.8525213250175683`", ",", "0.2913653389794759`", ",", 
         "0.4710389390048585`", ",", "0.19392693517554518`", ",", 
         "0.42930889541343364`", ",", "0.877825580295728`", ",", 
         "0.7098304685457201`", ",", "0.9988803738763944`", ",", 
         "0.02738472617787065`", ",", "0.18022318015965452`", ",", 
         "0.6251476167860391`", ",", "0.8839315960348295`", ",", 
         "0.992191046250663`", ",", "0.3188964648498687`", ",", 
         "0.6253163144264193`", ",", "0.03667851934567311`", ",", 
         "0.5990674628672995`", ",", "0.9244660560649897`", ",", 
         "0.05792076271271233`", ",", "0.20533962151104476`", ",", 
         "0.003586334279750187`", ",", "0.02472022733159083`", ",", 
         "0.21339715862016168`", ",", "0.42696378926638967`", ",", 
         "0.15106500926218186`", ",", "0.7333548883521149`", ",", 
         "0.7423582196153032`", ",", "0.23303685409084446`", ",", 
         "0.7217561138487483`", ",", "0.8555293080563869`", ",", 
         "0.03252775106958316`", ",", "0.23415648021445004`", ",", 
         "0.6943713876708776`", ",", "0.6753061278967324`", ",", 
         "0.407380134283544`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "0.35022488417962055`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0.7021803414202146`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", "0.35640966304686367`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "0.7820638198571247`"}], "}"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.8527966250008239`"}], ",", 
       RowBox[{"-", "1.8282728150403478`"}], ",", 
       RowBox[{"-", "1.2951901323495005`"}], ",", 
       RowBox[{"-", "1.970146477812562`"}], ",", 
       RowBox[{"-", "1.553420550157635`"}], ",", 
       RowBox[{"-", "2.8524001964506436`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.31354636483394743`", ",", "0.10311287855291507`", ",", 
         "0.431943606981874`", ",", "0.7241430571444124`", ",", 
         "0.10820674332290271`", ",", "0.09952654427316489`", ",", 
         "0.40722337965028316`", ",", "0.5107458985242507`", ",", 
         "0.681242954056513`", ",", "0.9484615350109831`", ",", 
         "0.6738684912981683`", ",", "0.7683876789089475`", ",", 
         "0.4482060999656686`", ",", "0.2267054211622348`", ",", 
         "0.8183391832417813`", ",", "0.7358599278393644`", ",", 
         "0.21404961975121856`", ",", "0.5323340334913572`", ",", 
         "0.14303305534504895`", ",", "0.32847979355582035`", ",", 
         "0.863824735571598`", ",", "0.8301536920711426`", ",", 
         "0.7866233922981852`", ",", "0.5464159736986957`", ",", 
         "0.5502783707376505`", ",", "0.7270408135182276`", ",", 
         "0.3546797853163113`", ",", "0.8222729165542833`", ",", 
         "0.4420716274147478`", ",", "0.6275142692450626`", ",", 
         "0.9474564056660281`", ",", "0.3115270180300325`", ",", 
         "0.7608286733582348`", ",", "0.6790527342340796`", ",", 
         "0.2735879143678598`", ",", "0.543139339121085`", ",", 
         "0.31262257339256616`", ",", "0.45234731307184484`", ",", 
         "0.45524873112607844`", ",", "0.8072794112817206`", ",", 
         "0.09857295364134762`", ",", "0.9200132795804876`", ",", 
         "0.31221567578102954`", ",", "0.47879961772590024`", ",", 
         "0.2347482180697496`", ",", "0.089859587509345`", ",", 
         "0.5255922834828443`", ",", "0.9323836440272046`", ",", 
         "0.684469847332099`", ",", "0.36281877399111745`", ",", 
         "0.170912498166533`", ",", "0.11011072747292137`", ",", 
         "0.24239821991735122`", ",", "0.7353045047460548`", ",", 
         "0.22345609250050494`", ",", "0.7985837094428888`", ",", 
         "0.48156954655911643`", ",", "0.05625177051197522`", ",", 
         "0.9498681781326451`", ",", "0.2554443703218039`", ",", 
         "0.16894697316655027`", ",", "0.6039044574401304`", ",", 
         "0.4946194470065666`", ",", "0.44816495904008324`", ",", 
         "0.07037401952520267`", ",", "0.6838911778596428`", ",", 
         "0.18240377122553714`", ",", "0.9693653413141831`", ",", 
         "0.8356258014554531`", ",", "0.5940315903502978`", ",", 
         "0.6568114877426928`", ",", "0.036981697286978414`", ",", 
         "0.15115595412335397`", ",", "0.2312128163591803`", ",", 
         "0.48589898957615985`", ",", "0.926870969814057`", ",", 
         "0.9087577342060027`", ",", "0.4959083116131255`", ",", 
         "0.26244289707565494`", ",", "0.1282872603711682`", ",", 
         "0.4271881876468863`", ",", "0.43965654110115027`", ",", 
         "0.3125747189430098`", ",", "0.8728428900493643`", ",", 
         "0.258241214480336`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"16", ",", "0.8357520836610198`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.8179552719364431`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "0.42467793100928103`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "0.18786719495513335`"}], "}"}]}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.7013260786693976`"}], ",", 
       RowBox[{"-", "2.0911187387098917`"}], ",", 
       RowBox[{"-", "1.6419369150065706`"}], ",", 
       RowBox[{"-", "1.167575989425917`"}], ",", 
       RowBox[{"-", "2.071446989072566`"}], ",", 
       RowBox[{"-", "2.7601617054208853`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5299620183488493`*^9, 3.529962056559268*^9}, 
   3.529962134554873*^9, {3.530021974971387*^9, 3.530021987142137*^9}, 
   3.5300220198528147`*^9, 3.5300223138437557`*^9, {3.530022451337656*^9, 
   3.530022490328994*^9}, 3.530022553114468*^9, {3.530022593049199*^9, 
   3.5300226097115507`*^9}, 3.530022651199582*^9, {3.530022711874094*^9, 
   3.530022752551917*^9}, {3.530042088978683*^9, 3.530042130946672*^9}, {
   3.530042173742013*^9, 3.530042186101594*^9}, 3.530042258311096*^9, 
   3.5300479991406927`*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["dKLdlogpraw", "Subsection",
 CellChangeTimes->{{3.5299608210943203`*^9, 3.5299608212989597`*^9}, {
  3.5300284716665783`*^9, 3.530028478626582*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "xlogy", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xlogy", "[", 
    RowBox[{"0", ",", " ", "y_"}], "]"}], " ", ":=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xlogy", "[", 
    RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
   RowBox[{"x", " ", 
    RowBox[{"Log", "[", "y", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "KL", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KL", "[", 
   RowBox[{"p_", ",", " ", "q_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Plus", " ", "@@", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"xlogy", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}], " ", "/@", " ", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"p", ",", " ", "q"}], "}"}], "]"}]}], " ", 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "normalize", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"normalize", "[", "p_", "]"}], " ", ":=", " ", 
   RowBox[{"p", " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{"Plus", " ", "@@", " ", "p"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "expnormalize", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"expnormalize", "[", "logp_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"logp", "-", " ", 
      RowBox[{"Max", "[", "logp", "]"}]}], "]"}], " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{"Plus", " ", "@@", " ", 
      RowBox[{"Exp", "[", 
       RowBox[{"logp", " ", "-", " ", 
        RowBox[{"Max", "[", "logp", "]"}]}], "]"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.530028499795547*^9, 3.530028526133173*^9}, {
   3.5300286130005713`*^9, 3.5300286861858683`*^9}, {3.530028725898466*^9, 
   3.53002874657054*^9}, {3.5300372317726088`*^9, 3.5300372368370523`*^9}, {
   3.530039395434738*^9, 3.530039430358094*^9}, {3.530039722330306*^9, 
   3.530039726274959*^9}, 3.530039758352146*^9, {3.530044320090612*^9, 
   3.530044325570107*^9}, {3.530044953489246*^9, 3.5300449663039*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"KL", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", " ", 
       RowBox[{"1", " ", "-", " ", "a"}]}], "}"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"c", ",", " ", 
       RowBox[{"1", " ", "-", " ", "c"}]}], " ", "}"}]}], "]"}], " ", ",", 
   " ", 
   RowBox[{"{", " ", 
    RowBox[{"a", ",", " ", "0", ",", " ", "1"}], " ", "}"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"c", ",", " ", "0", ",", " ", "1"}], " ", "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.5300372494136047`*^9, 3.5300372763533993`*^9}, 
   3.5300373141851463`*^9, {3.5300397312104807`*^9, 3.5300397631435633`*^9}}],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJytvXVUVlvUxgsIit2BLWI3BvZWsFDswkYxEexW7AYVsRsVC1sRMA4bRUxE
pESQ7nwBBQRF7rnH+cz9fev93jGuY9zzzzv4uc7aaz+r5px7RbM5S8fN09HS
0vpVXkurzL+/Fy1veu5tv7I/fqvdsF7pl+7ubdOx/6kW5g8k8JazP196/uOB
fCv1S6mR+QvmD90yjU2e+spGT2p19bR7z/znaev2C6ID5AC/Vg+NzIOYZ5rO
HOm7N1Te39HP3y4yjHn4062dS4Z8lYecmJPsYRfJPMajyspZqXGyttb/+18s
89xexb9NOybLs9wDHI3M45m/b9Z7dLVGGfI/C88ZmDsnMvdOb9Fg3PocuUEj
26t2kcnMb7230hpb8bu8/lPvrs5Gacw7ry6cf+PKD/nzrvI+HnYZzKNe/Wi3
wrBU7t473CLSI4t5w/XdHd421PM5nH31S2mpSnmvzNUlt1L0fPA3dF2gvbey
UUCejL/xW+5gNbO0tYGsM/jlW5ekDVWCWGdw7YB2T5/OCmWdwSskW12u/fgL
6wxevU5OSVRBNOsMrjJw7fXIKZ51Bs8RdAZ/7O2698mqdNYZfFbrox8fnlax
zuAJhrE2fUvzWGfwqvleM/a0KWSdwcvft9veu04J6wxubZi+1PlKGdYZXNQZ
+r0P7TK/eYCOD9KBvzRb3OhSl6+sM34zy3xMspQiWGfwnQEtYs3GRLLO4G33
WRctSItincFbeN2dNys4lnUG17LvpVWxVwLrDC7qDH59WtUXc/3TWGdws41f
F/qaZrPO4PU3zApt9S2XdQbPWrVhwrzb+awzuMmZ+HCdCj9ZZ/Cb789PmNZR
h3UGF3WGTuDQGfz5r/iNt/MTWGfw07dL/Br0jGOd8bsz5ZDOfJdY1pn/vc7D
VlGV4lhn8IHzFviPbhfPOoNXiw14ZRWn6Awu6gx+4sf6n1WMFJ3BWwQY6QSn
Z7LO4OM+RUs1U3JYZ3D/731GmHX5zjqDz901udP7kh+sM/i3VeN7GXlqsc6i
ntAZeog6g1+YXC1tX1Aa6wwufalp4DAmiXUGf5VSqbbbyQTWGb/uC9zHlW2R
wDqDz6jRpOuAHQmsM3hTs7kHPPYlss7gos7gu48ldnu8MZV1Bi/fzO5MvHMG
6wxee+yzCSWPVKwzuNuqkoHNHuWxzuBOS/13HcktYJ3BV/et1jdiy28ZOot6
Qme8t6gz+JYH/SbNv6tincETddvaFi9MY53B9VP3tcp2SmadwQc9fmTfqV8S
64zf9XLYqc6RiawzeJerReMrGSexzuCizuCrjEcvsQ5OYZ3BM1c+6pbXO511
Bt9Z+qRNyLks1hl833fvnqU9c1lncO8pA79OS/rOOoPrHlqvZ3v4J+ss6gmd
8X6izuB3dj+a3exVHusMvq/zAHnRtizWGXx4atnexvvSWGfw4Aqe1y0nprDO
4MdtD2o165rMOuPXtPyh+nMiFJ3BVYLO4NYfH1+r3E7RGfzjq5IP2gmprDP4
99uPf7vtymCdwQNTtWY9Wa9incEzzDyMjb7ksc7gR+PiA0ou/WCdRT2hM95D
1Bm8cTeLk4fc81ln8Lod2+3L9M9hncEdU3dYrNmWyTqDW0/3Ct5ml8Y6gz8w
GLKgukMK6ww+ztYoznN7MuuMX1FnMT10FvOHzuBzqTzQWSw/dAavR+8LncGb
kz7QWdQTOqO8os7gB6m+oDN4GtUvdAb/QO0BOoPnUfuBzjy+UnuDzuBonyg3
uKgzfgdS+4fO4Meov0BncPQv6AyO/gideXyi/gudwR9Qf4fOop7QGeUSdQYv
Ofhn/IHO4E9pvILO4HtpfIPO4NtpPITO4Ok0fkJncIy30Bk8W9AZvDON5/gb
v+to/IfO4GY0X0BncMwv0Bkc8xF0Bt9B8xd0FvWEzni+qDO4Lc2n0Bn8AM2/
0Bn8Os3X0Bm8Bs3v0Bm8HNkD0Bl8J9kP0Blc1Bm8CdkneE/w6WTP4G/8PiD7
BzqDvyR7CTqD9yf7CjqDXyJ7DDqLekJnPEfUGTyb7EPoDG5F9iR0Bn9H9id0
Bh9D9irbGcSbk30LncGPkT0Mnbk8gs7gVcjehs7g/ck+x/uDG5I9j7/xu53s
f+gMfpL8BegM7kP+BXQW9YTOyE/UGfwK+TvQGbwr+UfQGTyd/CnoDF6P/C/o
DC6RvwadwV3Jv4PO4FmCzuC/Nv3xH6EzuCH5m9AZvDn5p9AFfDP5s/gbv4nk
/0JncG/yl6EzePvF3f7zr6Ez/j9RZ/AZ5L9DZ3A98vehM3hFig9AZ/A4iidA
Z/DpFH+AzuCPKF4BncFFncEzKB4CncErUPwEOoPrULwFOoP/+PAnPgO9wE9S
PAd/4/fXgT/xH+gM7n18/3/xIuiMfxd1Bq9F8SjoDB5G8SvoDN6O4l3QGfw6
xcegM/hTiqdBZ3A/ir9BZ3BRZ/BIiu9BZ/AgigdCZ/Akih9CZ3AVxRuhM5ef
4pPQEbwKxTPxN3493/X6L/6Z9Lisf0vzSxJ+Rz65EO3n5SvHla7z97R7ylzL
tXVUjPEbeeHYtQZLIl8xL3d9lnVUzUB5WfUpLbW0Apk3zM5J6p0ZIuNv5Kd/
ZsvkVVnhnD9+W+sU1/J5F8r5gx8c5d7nbeXPnD/4epeLWzNyv8jtNxRI5s4h
zNv6ZpqF5kTxc5Hf6lufY0xLEzh//NbK16/1qFw05w8eNm5cg7OF0Zw/+Mf2
xs9db8fKqfFHpjgbfWHe9tGaoQ6r4jkf/J7erj3t6u84zge8/A+72Og58ZwP
+Nm2nWwGrUyQXUd0WRnpEcX85aipe40aJ3E++DXzvVFar14i5wNexSXFsWR5
IucDbtc2cH/sciUf/H/2B5Maj/+QxPngd2ttl7sey5I4H/A6ZYccOOuXJHee
umCIs1Ec81qnrh0N9EnmfPD/5e23DFq6NJnzwa9P3NNDlgbJnA+4zT9dnGvZ
JcsHq/QI9rBLYD5Xq3p+6yUpnD/+P3CkA0c++Bu/eC7yBxfLiX+vSe+FdODQ
AX/jdwvplvlC1yrSI4n5JtIZ+eDfF1O9IB14JapH/I3fgVTvyGf42uDM0tIU
6Tm1E+QDfpraFf5/8HLUDvE3fk9Su0U+19tdWm9kni61onaOfMD9qV/g/wcP
pH6Ev/Fblfqd9VHpiF1kNvNV1E+Rf9nYZWXNnTMlQ+rXyB98OY0D+P/Bd9O4
gb/x24TGGTwXXJvGJeSPf69F4xjyB/997c+4h/8fPPvyn3ESf+O3P42rGJc4
fp8rf/l0/hJzzG/1ni24nDH3E8+D+Pfzlt2mtwiI5/zBMT/y/CFw5Mvjemq/
e34Twvi5mD9/PXu/63fvWH4vpN9WY7FJy8paPnguOPLH3xgPxz6Y1afaphjO
H+PYAgfVkfd7Mjh/pP/h1Xfej9sl/F7gYv7Ip9/9+M73jidyPuCZFpenuQ78
yfmAl73Roml8NV0flIfH0UdljNruzeX5CHzcvtqDLJemcf48z8SWHzcm9Afn
Dz7sfpNv8r92NfLn8c+16uYlFvmcP/iC2cMmaw3L5nGG42Dfth7coEri5yJ9
2Kplw34tLODngjs8Nnh1zkKLn4v8Gh1tEP6gWhE/F9z7bL/uE5xy+bmwX459
LHDqYaaMb+BHiaM8+P/e63/uf/3XNy4P+LkdrYwLQ35xvSO/48RRHvA3lA/+
ht2ULujA4zaVH88FN6T3xXMxbu0hfdieIB5MeiJ/8EVUL8ifxz+qR+SP8WkQ
1TvyB4+idoL8wcdTu0L+4B2pHSJ/jENa1G6RP3gKtXPkD45+gfzBF1K/A4dd
qTqT0GuPbwo/F+Oc2O/A86if4rngFtTfYX+CjxltMVgqF8fPhd1aTOMMnov8
xOeCb6bxB/mDR9E4hvzx75Vo/ET++HfRXxY5xk/wvKwe/2u85Xg/jdvg4ndw
9t/oPcqtHRRfkKZ8n+VxkvRBOeGvZFO9IB+kH9W06JW8QpvzwfjW2W39gwaJ
yZwevMORaZOrF5by93e2D/WuNfnhk8npwZ8lvWx6Wb+E02OcKexkMyR9VC6n
B7fo2TG9W/1iTo9xYH6Ulr1lP+W7CXjk/hMPX7Ur5PTov6HEkR58MeWD9OiP
g+m5SA9eTOVEevSvR/ReSA9eg3RAevQXI9IN6cGNSWekRzsfLtQL2xVU76hf
0Z9F+xG/7+P/x7xcsqS8jWHib25v4ndqpEf7ydNZZhWw9henB09wvd7jm7Ye
lwd+cMyGn1lVLVTcr8FTjodN2lCxmPMBb3X7UvlPTcpwPvCb026VH2th843H
efAZ+XdG3opU5n3wyLb9Rra8UMj5gy96dPbrnX7anD/mx9lna9906ljI+YN7
JS/r3HZqDufP35u8L5sFGedz/uBTNnaYZeD5m/sd5rsIh2Z6oXnFnD+477gK
vTe/yuP8wf2II3/wGMoH+WNeG0fPRf78HYTKifzBn9B7IX/w+aQD8kdcYR7p
hvw57k06I3/wmVQvyB88g+oR+SM+YUj1jvzB44V2wpzaFfLBvBND7ZD9eeJZ
1G6RXoxnIj14IfULpBfjchsGrvTwsFNJ0x0GlnrZ3WSOvy8s9rF1NvokJX1/
tWaiVboMPi1kxu5Ij1Cp68y8TZPW5TCv2+/nBSPzCOnbwG39t/t8Yx585eRj
u8hoyb1FNa07+oXMh5U7syjSI05aXf7C8y9jiplffbqooLQ0Qeqe1WGH3qkS
5rrLeu4wMk+WNi6ceenkMi0u5xyjctXMnVOlaREtdtyppcPcJzz0rF1kutTH
Isv6pVcZ5o0PuLZxNsqSGni7D4qYruiAX9Maq/aezvaQIwJPdGlj7izhd7rA
kV/Q9L5r9N5+4HK2PBH5YEmkhzRUt2hGfnYw8wrnrjuaO7+UXM3rGwftiZUt
UiouMzLP5nK6CBzl7EX5oHz492f0XMyvKFeFcgeKWgUEcT4oT1N6X/BR3Squ
1NLykTrrjZ3wcb8uc5RzIOkG/kpvyFVno7fSmCP7Vj5O1mG+fUmCHOnxQZpF
+oOj/Sxt9sL5sqk261/S5FCRh12wdCV8Ys9t17O4nOBbqH7B0d4azMq3btCv
lPV8vLd9TS2tcKlm4OMZtg3zOB/wvtR+wNE+p26cf0n1/Sfnszr3bXtz569S
yMNhTU7Ozef04BupfYKjPZ888TnW99YPzqfe7a7NzZ3/9QuIIz34Y2r/4Gj/
YfRc5LNmts49u8h4aQKVE+nBC6l/gaO/1CYdkE9I7U99nY2SpNqkG9KDd6f+
C47+dZXqBfkYv7vw1sMuRbKhekR68BRhfHDavGRSpEeaNILaCXi2cb+E0tIM
qR21N7RX5CfamWjvU84e+q89Iz3ae1zxqyn7Vjpzv8C/i+MY2qdR9Z6P2tRL
kdGvoEON5/kDanZX7D1w/2l5vTv1zGZ98F5zO9z4VvIxgTne68X7OnEWWyK4
nCiXON7i/Y5T+WGvYPweGu7lnNYyjOdB/Hu/iPatF16O4Hi1GGdA/ujXop5i
3ADp0a/F9LCTxfTo1+CwG2An3/h+Z1lclBJ3hd3yOsKs8dTcRC4/0ov5o78/
6L+70tzxSv7I78nkQSYmu5V4LP6995hfA2rmJHH++Hcxf4wDfb8PLtuhvLKO
FHa4mB79/fUNPa0Cby0f2DGww7GOAv8/7JD+N22P5B1P5vIgvZg/xoHL3vu/
2af94u8jsNu96H3x/8MOGVCvoqP3GWX9ANKXO278ofUeJc6Jf38l6I9/F8uD
8cSzTYWUqhN/cP7wC9JTN8zv2SmR84c9M36ew0+XPOU7LNKL+WOc8T+6L+Li
v+MY0sP+cvQosu3e/Rf3a/TX9pZNQmZWDuf5Du1/S1j+f+nR79D+yw50WtPo
jPI9Avb5RCon2iXaYQa9Fzj+P33SE/WLfzcl/TFPYN4ZXWfQw6HblPpC+0R7
QPtBfli/Bz1R/z2pPWPcx2/8/M+meW5J3E443kz9Djry90YaN/A3/l2icQY6
YxzTI92gJ+yHvqQ/7Elwp5srSzq1CeXxH/q/ovEQ6cD7hlq3OOak5AO+db/D
fa/7X7k8+P/EuIQ4LqGcGJcmDjcPsVmTy/nAnhHbIeYFMX9xXEL+GJekmLex
4RUKOH/YLWI+4viDfDD+tF41PGvIhWLOB+1nncH8fcM66nI+4riEfDAuVS//
vsi9aynng/ZY5mOLHdUTtTkfcfxBPhh/fgf8SY98YLfUp/yRjzhuIB+MGyuo
/MgH7bYTvS/vAxHGB+SD8UGsL8zLg0h/5IP4g5gP/AJxXhPTI3/YM1OE9oN8
XpRWP7vAUrEHwGFXoDxinBDlgZ0PjnENfOrrj+7bY6LYDgHvkKs9oVrTGPYf
0U83U3/Bc8U4IZ6L54hxFfDt1H/xvmK8Dv0adgLsH+SPfgR90K/B3Y6kzb9x
JY3HAfSjSmR3IR8x/oO/RbsO4z7iQrXavtaulxfI+ePXIKHw2LWBwRyPAl/T
59r6yfODOT3GhzmkP++fId6V9MdzES/qOti81fS28ZwP3jcsNDjtTv9Ezgd8
3fiOJxJtkzgfzEfDGm3qrVsmhfPBeFL8Wlp/9kAa5wM++c403efmSrwI8+9Q
ygf1ivacHrDvfotkJf4JnqHl92HctFTOB3GGLvReyAd2r+/XRoY9Tyjrr8Ar
XD1htWazkh7tsyeN80gPPuZ4SHJXsy/cbkU7GfMBfqd9aqCv3ShcxriJ9jO1
WhPPh58TmeM3geZHjI8Y33po1Xf8Mi5Zxt8Yr0bRfI2/8RtyJ+3u7nYKx7hk
em/0m/NaidxuuV1kXYj1v/hVxjiO+hpE6cHxG0b5Y5zFuG1C5cS4iXHPkt4X
OuJ3AumDdoL+N3b+q5sGPfx4Xsav43qPR33+ecf9FLz/KU/nUQPfc3vAv+95
Y9J3jJk2x+3BfT4cKukwW4kbiHEklAf1OEGod9Ef4fgF9buc0Go7HDolcTnB
vdw/PWjaKJ71h87vyZ4Eh84PyY4Fh87nyN4GRz28IDsfHPVgQv4COOrlFvkp
4Ohf4niL+eIGjYe8PkmYL9Af0L++2hw+VOSrfBcD7+oaVWleXBKXH1zMB/NI
JumJfMA9BD3RrsT4Oeq/PI236O/4rUTjLdKB29B4C47nD6D2ifbDcQ5qn0gH
3pbaJ/ob/n07tU/eH0j8MbVPtEsxzoDxFvMaxjfkA16exjfow/4y1QvaJ7gx
1Qvyh12aQuMw8gdPpXEYHOPba4o/QEeMP79oXoCe4JY0LyA92lsIzUdID475
COlhF1kF3Rlp46xwtM+esabem8wUvwD9d27TsfterFfmHegcFFe38qqk91y/
aI8FIfkzDXo9ZY76Krp/0jix/UuuX5R3m92nXn2ua3F94f/7FKRzsWSCjg/8
GpRzf6eknm8mR/M4yf1oxJvqzbcp6zfA2x/aZGj8PZbLj+cWpw0M6Hw6kNe3
QB//Dx3XBG6NZ38KfLHv3qXjByXwczEOVLm7/YLfN2XcRr/b3i3s2OVDX5nj
OY3mP/z6/U20XNF1Y+nN2Cw1e2xX767lz0Vnq+0TLLV+bzQ8OVttX5vxoujg
26pstX1Yi4dMmWr3M1tt31CSvX2eYwX1fS4jXxetkBur78vQapA3tE4f9X0E
xttO5j+dp77ufVhB986dbquv0+76daR+g0ZX1b5rTNrZf6nbzltq3y9uxBjq
uhTfU7MbDW/nLay8VCXdvDk9Y+/jUObtywyp02m1Strk4zKrtmUE88dRMe/q
2quksdHL4zsVRzPvtr5R1p09KklHGuwSHKj4TU9nuASePK6SUj4frxbfWnnf
u+d1ilr/+169Prz2O75XeV871Qwv82CVNDEot/rXQsUfsTTIWGPscU9SOUxf
ffGDUv7Qs4b3e6VlSW/KPRk7uNN65o9amO82XZQtLd/vN3fWV0/mLbwi1z7Z
lS2FxJ24NqaBN/MzP7e82xmeLQ3NXlfw7qMyz17N2DVk5Jd/5+vvMyxUCQo/
1n3Vjqe1VFLd8zEOb+p/ZO57x6CtzVSVtHiwaY0xRxU/93qrd8+ePDgqjYyK
LvjcXXnfejGxwXUMzkiuNR706OGuzIM2I9cfPrTwnGRfTz9qZC9FhyuDL55o
t/iSlLk9tb3uUGUe9LYftN3S9Zr0pkzljGN9Fb8mV1u/8OVC9XVWt0auz+vq
vlOtX6R2/zDPMVx93dSOi+0v91qrvq4jN3bLoXsrb6itu3hat9KURybq36P7
GW4c3fG8+ndnjGumnX0cN9V4zbx6RKbFtmFH1Ppp3YNPtE3OnVTrp2Uv+blU
b31WrZ+W9h99b/ad82r9tHTA4qltzV3U+mml7gYvDPUuqvXTFpfMH844c1Gt
n/4e5W/bqc4ltX6K+a7o28evVn0U3cYN0bJ8+K+eS1/ONq1sofDY6rtKxzW7
Ik12+fSr6wClXz90tTvzefEN6eGoBTVX6f4P//Rwu1p3i25I3pkT3wT1UXjG
kH+qzLPKljqfHvPPomZKXGju8gqRuv/qf3e6XpPt458zj79TLjD99r988+NK
nUuVenmRZjn6QZOrUuj1/uua3FTKs2vTTZ/eBdnSGYN59tt1lPbT60ySy6D4
bLV4eLkiK3OTVirpccQZ5yMnFH7Ssqh5aXeVNLef+2Hto0qcXF8nZt2z9Gy1
uHe92as885eopCbHpu2c4a6MV8+33XjSLT9bLY5d0N3Z9syqf9NP+KfrtD4R
/6O+Nttt1FGPY+fPaH9M3qiSomxb/pomK+Nby21jjaJrqselXWx21qm+SyUZ
Ru8rv+2CwnXmbvc93049brwn9sC1Z4dV0qmGo/WKIxX+oPeGcXqj1OPAfZKi
XhZcVklm/h9WJdZQ2luP+iv1EjIPqunsse5UX6eEHVJKw3x7fTdFz3XDnqY1
vbJVCn3zPbb1LiX9hQ5FuQt+Z0u1m/y87VKk1OPsjh73JkrH1fQvGOA2ptuO
fdLs0tw1E6oq/c5rXJmTYV/2SAnLda/XHavUS2Bs1fSfE1SS28w3VgP7KuNh
uu/9Q60cT6vV14/2pf5Phx6Q/vG5NWH9DqW+Nty71bi3taN0oMXnqJvlFD5m
4IvbLstVUuV9B43a//isjJNu9fao/uXVpq11X64frnx/uRywus/Oc2r13juv
1jn9n4ek0RvflmutFaPoH+p58fK2Q9LSFEez1AdKe6gaFeP/fa1KGvEkp9Tf
/qsSz+wbUi5mnUp6meLw8dR1hZ8f1n2M870Lau2ncXPdufO1D0seruW2GjxX
uHHbdXpNEp2kmhV613t4U+Fp1x2iam5VSTcGN/iVsUUZx1QN1y8v2qaSDuzt
Fe1wVeEfzi6Y6H7LRa0d7pI9h6a/Pyx1eeaVlVZGGd+OO6c3rPrisOQ+9mWL
1z+V9FV+v68Wt18lxbvemGjmrYyTnYfuqrvyoErqsKBW9ba/FG7xqOqKnhMu
qrVnVVIZ7+1Wx6TbgWdGx8xW2nPl0f90/HZKJQ3U3/Ny4g+lPKZpF66cdFFJ
Z/8pabdqspKPa6+ruY8iL6rFJ+u0tIvdauAi9e25LeSEtjIOm9ZJX2mxUz2e
2eFgZXn5PZW0xV7v+c+2Ci8sM2XT4n9U0j3HXYcW/6PwAQdaGi7xUUlnwse7
HpaUednE+3dg82lrJEubnl6Hmvozv1ZyPzP7zRbpXvi9JY+1FTvBJMjv0aYK
6uuubQonpdXrlS3t2udks3zJLebVdNalHTHOlk6alDl+T9dNaW9k737/dc/p
hYUf801byuYMOzxVbR63uHW5wsanU6QPo189K7ymcNWsifLzRzsl1chlq4Ky
lXm2i9nON6N09ki5G+bWMYlQ+q/1reTP76fsl6oMDIruc0fpd9MG7G4Y5uQg
vQyenV9xmNLvamx18RpU66C0cN1q2XKm0i+GjEic+eTpQam1RWZmiY/CTbPL
uJad4SSVqfK6Sup2pT0fyFk5tfJeJ6m+f6b2OBeFOy2RTBpNPSzNPd9pTH6w
0g6PGDy2c7Y9LHWe3Gz+uHiFF453ixvX2FnKujF2f5/mSrtKDV1Z3byZs3Sr
e1C/Ty0UXisrZGuDAaekMXEtTEq7K+0B9nTlTSHTPt5S5vEnh/2X3ElWj1ck
OrUOuByqklp2etw/e5TSPmsYrxo2OE8ltVm6NHXR/7ATPE2G5Y8/6yKdfXzV
apakpN92fIOp4TeV5LUjoJrOJCX98a+XLnezvKu2TtWW2tNial/gJdFbFj4P
uyXt9r9Q4D5L4X4j72TU67haWnmggd7Ql++YG9xfVHfp6mlS5ZiBMy3/h52m
yf/SZJ9rav+a2rmmfqHJztRk/2jyCzTZyZr8BU12lCb7VpN9pcnv0GSHa/JH
NNnPmuw0TX6xJntAk7/z/5e9p8kf12Q/aPKz/tZu1OT/aooD/K298bd2qSa/
W1P84W/tkL+1ezX5+5riHn9rn/ytXa0pzqAp3vK3dsvf2u2a4hua4jx/a+f8
rV+gKa6iKb70t/aPJjtKk12kKZ6jKa71t/OjpnlW07ysad7UFB/TFHfSNM9q
mk81zb+a4nWa/HpNcQBNcRhNcSFNfr2muKKmuISmOIameJGm+JWmOIkm+0dT
vEWT/a8pnqbJj9AUl9NkB2qKC2nydzTFAzX5TZrsUk12rKb41d/6fZr8R012
tSY7XFOc7W/9X01+tCa/QJMfoSke+LdxAE3xBE1+jSY/SFPc8m/jIZriKpr8
Mk1+nKb46t/GfzTFkTT5lZr8UE1x4L+Nd2mKm2n00zX49Zri53/rN2ny0zX5
9Zr890obllbS1rrHfpDDlJaRbR4GylhPgPza2Tqe3tbuOXP+jprh3tR86yf5
+M3oWVpabzh9tNbnjt3vv2OO9Pazw9ubNQuRl5KOSN9V/83ynxuDmCO97tQh
dxc6fpZrfnjRUEsrhNObdnbQMagWzhzpK56c5DfgXqTsSesSkH5Uaso5uzbR
zJH+eZXLB3wGxMrTBh0vr6X1ldNLrRwTGyyPl0v/+y+GOc5lQnrkkxU1Km++
bgKnB0f6oKhuP0tL4zifD0bGV3psSWeO9I2XLD2RkZEmu9J6GKR3XLinr2Sv
Yo70eSPD7buPzZbXnDqfW1qaxOnHeNrYHHbPY470M6I81+/xz5WH0bzF5yU3
vdXV3rKAOdLnO1gkzq6VL9efqJ9aWqqc2/zu2+d7q2r9ZI70e55uchg+p0jO
pO+tSB9yfXjXRt+1fMBZt4mvDVZfLpXRDuH/jh1bEO5lGsXtDby2qmS31fII
blfgDqaDX2SkRXD7AQ+7+TIz9OxXbifgoaXN9i4cE8PtAXxam3EW72zjuH7B
zx6trvXghFK/4GL9gi/1vLXPxVKpR/ApXdvI7Vpkcb2ALy6jt88+MYf1B99a
mHl0SOA31hl80I5m85veK2TdMJ44GllnNE9LZN3AF6y/XNDnfhzrxufoVv/S
bviXWNYNPGRzs2MXw2JZN/CPD9e0GLYujnUD/26mXTHkZDzrBj5iREjlkraJ
rBvvLxZ0A/fRSt840S+VdQOX623QMizKYN34nOFxrp1TfqhYN/BK1gcGt3PM
Y93AtUa8GlBQks+6YV5Y2nSETUbnDNYNfNDP1zdet0lm3cAnbD+05ny/RNaN
zzW8Fts1fGYC6wb+cMHXstOHJbA+4EXaJxoM81b0AVcJ+oDXGN5qSQVjRR/w
lr/fDaz3IZ31Aa98of/o4NbZrA/4yYAOBVWH5bI+4M9qLG7gP+I764N5vO3B
U6umPMthfcCb2WdOH38pnfXhfbV5g5/nXUxhfcCvBl4IqpKSxPqAn2xgmrq0
XhLrAC7qAG59ZK6VfD6FdQB3TGiwo8rFNNYBvHVGuJ1smck6gDfvHXD1e5kc
1oHP7YuoWnDxVB7rwOcjOlbu1i/2G+sAXvK7WrWY+irWAXyO9a+KQ8tmsA7g
h4pmLh+8NJV1AN/08drbHanJrIN4Li504H3Eu6/Gly2r6AD+7Y3tS93VqawD
+CCTlY4396azDnyO6YioOw+2ZLEO4D0uuQeuTclhHWD3Vt6/7VtT3ULWAdzO
5/TsR29zWQfwtOAHk87YZLMO4OsMG1fbVJjOOoDP3lH55gmvVB5nwKfe+Ufv
57AU1kc8zxb6gBvqGRz4vCKZ9QGfQvlAH3Arei70AV9N5YQ+4In0XtAHfkrp
nvwHuq2LWR/wadod+vzU+8768D4U0hn6gFtRvUAf8MFUj9AH/DvVO/QBzxH0
Ac/Y4WByPSaJ9eH93TP9mp6unsz6gG+k9gl9wA9Qe4Y+4DOp/UMf+JU5uxat
SB1RwvqADzeVaw00LWB9wDdRf4Q+4C2o/0If8LbU36EP79+i8QHjMPhcGk+g
G7jYrsDddX7HrbNQdANvMrLy9MHJiawb+Aka36AbuCuNh9CN/W4aP6Eb4gO5
z7PrJZto8fpt8J47xmbv3vyDdQP3pvEcuoGfovEfuoFXpfkCuoG3pvkFuoHX
pPkIuoGL7Q28mOY76MZxjz4TT+Q8SWDdlHNi/8yb0A38Kc2z0A18DM3L0A1x
nnSf6z8+v9Vm3cBbvUx47f+kmHUDL0N2AnTj81fJroBu4N/IDoFu4M/JboFu
4C/IzoFu4KJu4LCjoBs/l+wu6Ab+gew06AYeRHYddOPzbMkOhG6I4yXIc8Lf
TivDuoHX1ltzsUbhL9aNz1MnuxS6gW8nOxa6gduS3QvdwKeSnQzdwGFXQzdw
sZ+Cw26Hbpw/2fnQDTyI/ALoBh5MfgR0A99Ffgd0Qzz2q3dDr6dZuqwbryMe
or/Rsmsp68bn+pPfBN3AC8n/gm58njf5cdAN/Dv5g9CN14mTXwndwMX2xue1
kj8L3Xi/FPnL0I3Xq5PfDd34fHfy36Eb+FqKA0AfPjeV/EToA+5P/ib04Xtp
yG+FPuDwf6EPOPxo6AMOfxz6gIv6gA+g+AD04edSnAH6gJtRvAL6gHejuAf0
AY+h+An8ZT4/luIwaG/4/fAuo9GesA+sJ9bjX/rdo2N6qwBub+cMXZOWRl6V
dt4fVxQy/xPr1vtS0NyndmekunlHR1eu8YV1e0Lr0MNOGW87aR/Nuq3+/fhX
B/PtkhgnmQm/XtBNh8opxjcGUTk9r9qrhm9U4hg7qJzBI4sddSvnsW4vKd4/
LbZSJ9vTSlyiApX/3HuzTzGji1kf+4MrHjsbPZf8yg3cstYyknXo5z50yleP
fySHO4GJCxqH8/s2pvXvuxYMKw21UeJC3vGVWg53dleL81zVEAdYR88V4wDD
qH4aOwZ0HjhaiQN0pvLErhx6tthIic98onUFySNux4yZ9J3fd/kIN+mI0WNp
6pHUm4/O/eD3zZ91O9PI/J1Uo/Yrz9D4BG4P2Dcx2zcst/rGWNYBv043RwUW
hyr1G2Y6cIinna9a3KOxBv89h54r+u8+9Nydy5usMGmeye/rRM/NPnX0Zk5f
Je5hRfHM5Z4jnbrXUOIenQurBkd6+El1ph3Y7ZBRwO/rUe/7oUiPT5Lp1Yy7
Sw3S+X2x76P/4J+u574l8vvu8XY0N3cOlPK7LPBc5a602/ca/G53yl/0u89S
/hmTlj3sUKj43Tsp/6Itvqs/3FD8blsat34ZZg+oH6D43dffDC+7JDJACjY0
nj27lxKXWLHt8A0j8zDp8Rn9EN3Wit/N57S8bmLZxjaN38usVVtrZ6NQadOl
Rjpv6yXzONmO4ue7xsx+m2mjxBn2aPCvl9FzRf/akp47tu/z783fK/71AHpu
Lf8ZRx9/Ufzr1vTcfQcP5v7ep/jX1Wi8OZQe1sdkzzd+347pHX3tIiOkMXMb
BI41U/xr7Df8MWxQxUeJWfy+pYdeb4r0+CLp1gyxaGSfxu+bQt8v7NY3Xdj8
m+JHm5E/K7bb9vTcjwPz52yuprxvLXquV7MaPepfUPzoX/TczvV+PLhSPoPf
N5Ge2/r7jEGvHbL5ff27W/Uwdw6XLB5srFM5NJffN32c/1cPuxgprX1H//Mz
C/h9sZ9y8bxus1w6Kn700x9zjxuZR0sOO/afWB6Xye97mb4fTb4UU3bqxjQe
zx3Ol4x2NoqSFtxrn2O/SPFr8CvWeyqV56TPgsqj7RV/OZDKU/FAu47nNin+
sheVx2Ku86fDvdJYBxcqj/T+/BWnMpmsw14qT/kNTXPjDZV4Qgg9f3v+gDcZ
64tYh6G0f3TK1Vc9k22+KTp01g73sIvjfKADvuvhudDBdccHd7vIWGkElZPn
KeF+FuiA39lShGeTdMW/G0Lleblx5aJhYxW/+AmVBzpDh45UHtQLdLhE5dlP
9QgdjJ3L7DUyT5QMvMe/7HnsF+twhZ4/NMWyRvtr+ayDQdLHuZEeCdJIalfQ
Ad9b0Q6hg07PswOdjRKkTtRuMd9h3yXaOfR5psH/7UzlHBB9vozblCTWoR6V
p9OpUz2G31D8XEcqzxLqj9BBi8qD/gsdnIYE1TJ3Tpbu757vs+teKetQhvbf
dW+dkbE8oZB1WEvPx3gCHfAdHOMPdLDKtAnwsEuSatN4BR2wzxTjG+bBYZLJ
TbtI9fhAffI3RX0OUvm/9ZUrPfdV4gAcR7G1nTAhUvFn06mcGJ+hz0wqpz2N
59Anu9jlol1kquR6re/MtHmKPzsb5yQssvfzbKL4s6Ej7TYbmadKITS/QB+s
W8B8BH28XXpNi/RI4fkL+mCfXSbNd9Dn6je9ns5GKWpxgHUa/NlMKv+zp108
D3dW/FkrKn/20BENhn9U/NkQKr+TJK2YWTmedbC4u7Sjs1GGlFNxyNdD33RY
B5n2/dV0q3qhZJrin3bV6VvR3Dldqkv2A3TAOpMVZG9Ah4ZUD7BPoAP2M+4i
ewY66F4Peelhp+7Xh2nwT4dT+UX/1JvKf63HkUn5lxX/1JjK71OjhtNCSfHT
3az7P/Wwy5L6Lhs9tcc2xd9sRPsstTMurjM7+Zt1OOxR4aRdZCbbjdAB639g
Z0KHDeU/rzIyz5TiyC6FDthPCTsWOsyZfnlspIe6n96N/D5Rh+tUftHfbEjl
hx3OdiOVP/b922lJ8V95fMC+18La9W8MslH8x2ybL0bORir2C/C+c2j91VTy
Izgu8c8VbXPn7H/b3R+/A+87gvbDepGfgveVq62ILi1V96+dNPiPuvUqD4v0
UPcf11H5v5CfhffNovLXJ78M9f6S/K8y85e3+V7Hi3X4Sv7a1GsV9lYs9ON6
n0r+0bs5rWPnhX5kHaLIn6pP58yDZwn3aCB/7A+eP3lU23OZwZz/LvJHFnd0
jhx8KUzJn/yXtXROPngS8Q3Eob895RND9Qs+mPwjt1XDc4uyo/i5vckvWN6u
2uvwKVGc/3zyI0Lo/H9eV0D8M3Hk34Pykal/gZ/G99IFQREr/GK5PZSlcxKu
Uj8Ff0f+TvfKqn1Zo+P5ufg9Rfca4O/l9HuGOJ57h/yCQzTuge8j/+L7kdJn
C4/E83M30/knWTR+8voH8lPsG18bZbpR+f44qtam9ebO/jwOo922Jf9OJaxz
eEx+kP6rZpWC7iRyefi7BM1rXF/kF7z0aX9h5uxELs8M8iNedppV88TVRM4/
YcW0MLvIICmP5k2U55Pgl3H8gfyUAUPvztY2Vb4nfiR7uyPZIfxdyemP3X40
a8q2CZ2SuTwGZOdXGlg3POOT8v3xgOAf4bldyF9Y+6avZ+fQJO7XrpE/VB52
n6UGFkme3gdTOP+VdA4G7EbwULKrx4/7eHZAiZI/fmF/ojzmwndApMsiu/2O
+btKVguVccaK/j3x3eQ5h34q9vw6Ks9J6z2zj7VWvq/hXA7Y+eA4x+U0pcdz
HcNOHTYyj2V/AeXUEb7HIT3s/GQqD9tLlM9tKj/KWZ/KM1bQJ33/wsbmzvHs
r+G5VsJ3LqSHXd2I6oXtEMpnDdUj60P2cHlqDxiHdclePUTth+dxsg8laofI
J4zsyefUzpHPHLLrfKhf8DxIdhT6F/LpRnbXRuq/yMeH7LRcGgdgT+IX9/7g
bwv6PU4c+TvjnBMar5B/Y7J/mtG4h3yukr2E+4nA3YgHEIcdi98jFF/C3z3I
nplH4zaeu4nsjUs0ziN/XbJP1tF8Aa4v3MOC/NdRPo4U3wM/SvbDLJqnEF9t
SvbGeJrXkP9sshMwD4LPI16bOPIPJfthD8VXwXNpHveg+RfPHU52xQ2K04Jv
IntgIM3jmPexnqrGnimrFx+8J3uT/dGa7AFxXR/2JS2ZWGVqbrHyvjVoHi9N
/2MfglvSPF/d6uvlVs7K91mcC9Rk2gkn96ivnF6LeA2yt8EDaR40ajL8XdzE
n5wPzumy7bTs57yUeE6/jnhz8l/AXWn+6h7tmXPGQIkP4Dwi8/tH7+TOSuH0
P4h3Iz8R3IrmnaHnWtSdFKXEW3B+Ucuuj2fbhyvf6bD+IZO+jyMfd0oPfxy8
Ic0jU6Yf6Vft4nfOH+cgbYtYsn9n6xzOn++9pfUJyGcZpbekuAd4OM0XNg20
576bm8f5G9A4uYw40tchbkNxJG5vNJ5vovIgn7U07s2k8iP9KuKIv4Ffh51O
uiGfUBr3LEhnpA8ijrgleFny6wdQPSKfrjTu9aZ6R/q55CdaU/tB+8d3zB3C
+rfDNL61oXaI9PD7nFuq2g3wi2OO73qmwvpDFT2/HvULpIffZEX9CxzfuTbT
elpwfMepLvRf9NNpsvTmhZEu91+s7z0tlBN8ts+u1EBnHU6P9cmbDT+7lauc
yunBFz1/rx+jpc3psb7aqrHc5uOEbE7P9w3tbD4uIuo3jz9YH254YPyEEaPy
OD14zu67zgWPf3J6rG+v5fC6ZqcV+ZwevHRvn+Aax5XvF4jj6e37w5EevArl
g/SIdxXSc5EevBGVE+n5fF16L6QHn0w6ID3iJEtIN6QHX006Iz3a1QKhXvhe
BapftGes56xB39PBsV6xOa1PwHPBk2k9A9LzvZ20DgTpwbNo3QjSY53bUFpv
g/R8Li+tz0F6jIeWtH4J6cF/0HonpMf4ZkPrwZAevCytH0N6rBf6QevokB68
Nq27Q3qsk2lI6w+RHtyI1iuCY33IfFrniXrZS/7U/tEuR3teUupxEPkvT2L9
HIPClfagRX5EvtdqU489Srt6RvHwA9v29i9zWWmfzyg+3GL4md5jvJV2Xp/i
pf/UuNPj3Belv6wjO2hSpI9x+nel34VRHKzg06ITDfSV/tuN7CjTHitrvzim
tDdnsnMOnt50ZGFzZTx5Q98xW73dOWZp1yDOfyf53cfXNNgT1SyUeSR9B9yd
8XHAZZdo5r3IX95g8fDp3texrPMoimvZUHpwxK/E9Lco/lORygOOOA/KA+5O
5e9N8S7wk1T+ffS+4HvoO6x16toJx6aXYd6W4gm1vIc3sH6i8E/0viqKK4Kb
0fv2J53BS+m7Z72dS8KyA5Tx4QDFDd5OGXjuWXslvTn53Zcpfgv+lPz9PKpf
8Gfkd/s3mWc5bKAW8+3Ubu3zTZrUuaDF9ZtMfrRhvYdOu/5R2nkt8oMjlvy+
+axbFusZS+nvUrwdvD6lt6B2CL6O/O7SNZ7uZguUebA/9Zc5hjNMYwyVdnuJ
/OIbE2xfVi1WvvsEkp+up1Vj3M1HyvhwltLXpe8g4GGU/hH1F/Bu5I8vvOPq
VTBCGSeL6Tvd+ynDhziXU/rXTLK/Bjba4jO9trLO2ZG+T517YzTqR6AyvllS
+q30fQrcmdI3on4NnkP+eGDS4Wc3Ohcy96Dxoethk+GDM5V1+/Cjv1B6njfp
O1E3Ss/jM6VPpe+G4Fcp/W4af1g38i970fuC47vVGXpf/i5JfvFy0hMc34/8
SU+e9yk9vtuCw1/OpnGS64v88YvUHsDx/UiX2gOei+8v5df+aW/g+I4zj9ob
z0eU3ou+m4PD775F4znXI32vqUn9BRz+aDj1FzwX3zsCqT+C47vJZuqPbOdQ
eqxPAIf/bi/MO/iO0JDGE3B8j3hH4wk44u0LaXwDR9y+Do1v4ONp/MnbfeBk
xu4kfu59Gn/cosIfGv5O5nLiu1hVx8X1lxxV5mUdKmdNWmcCjrjBKO8NZ88v
VuxzKyrna1qHAw5/v99Ut2HlbcLZ3oY9bGL3JTjkRyj7TbBLDUxNTOJ0kjhO
BbulKa2/RXrYpWN9XzpWO66kh92ykNY5I44k3jeBfGCHTKX19hy/IjtzDOWP
uAq478RF3qqNCoeduXHQ/aLTY5S4KOy0L7QOFhzvu0lIj/d6SfmjnNDhEa1P
Br9A46pE323BgzEOmwxaLe9Q4o3ivQkcN6PyQ3/YY/CbKtH+LPbvcH8m1SPa
W3+afydRvfP4Sd8HE6l9cjsk+0dsnzjns+7Fyh2zKirfxU7guwe1Q3B8v4hu
Erj4qlswc45vCPkgXjHKuGvLPabKd1jEHzb7WjZutj6T3xd2pkT7htj+IX82
tniwYcgMxf+F3zqH9mex/UN+6/1FTdv2bqX0L3x3072fbz0g7gvXl7HQblFf
DWlcLUP1i3aI31A6Hxt/w68PFrgO+ek4Zxu8rHBeN9rnT9LHTOClwnnd4BwX
p+fi76dYF0wcuuF3Op3Ljb9z6HckcdQXzgkY83ST18uwl8xdaJ1h9lLve25F
rzkfB/qOhu+J4DtpvaLWxSX2dgGKvYT8J3gXXXP3UOJvGM8qU30hH8QHxtP+
WR4/KQ75kdonOM6LaObYSbX5/kvm+A2i9Z/4O4LikL70XigHzvXVo/KjnMjf
Uig/1g16UDsEx/q6ZGrP4FifVkeYL3B+8mrqLzwvUzxnKPUvcH36Thp9Onlr
Vj1PxU+nOOqW6y4dxi96rsSjyO9uQOf6gh+kfhRN5xKDI+79mTjitM9oXraY
kBz16lU883Aaf3rUGvrlkb4St0QcYOyT7oHbshKYd6b+XpXOJQZHPF9f4C9o
HNtA5xWDYz3AXuLQQTwvC/qL55Bw/IH05PM9KB/sw/1M69XZL6O4RDSt/wc3
pPzuWGwL6pOupF9L/Wi24YRT5Ycpz/WB30bpwcOpfc6h9MhnaOHOTrvLnlEr
/8DwHQHvW6mX//9reuiFf2/meOvRrFU5fC8Y+JNmUTYz9T/JvI+UeO4BRw+3
iyEy5mm2Bw+7WFbs+oXvMwJ/19Y0Me5f/xd2BvgBu09b3TbG8/1E4JhnYWfw
vp/Fawf67Uvn+6HAyzRe/PW+n0rGfAP+y8SpxLvpNxnzCnhNv9jzFacU8nna
4L41L6x9PrmE7wvAOLHLalKVWau0fKADuPWolLBmIV9YB/A5sfHW46O+sg7g
0f7aFtb2sawD309kdPRgfpUE1gFc1AHc1t2964aCNNaB96HO379dPpnNOvA4
5yoXt++RxzqAF9R6F2ZXqYB14P3lVoN9qx34yTpgfQGf20DtBHzdE7fKiTNi
uJ2Ah1UxLTxZNob1AT94wtnzg1ks6wM+aWf8lYlucawPeHrEpLMDLin6gIv6
8D65ktwWnawVfcCr3b3R+sPiLNaH9wFUUxWeHpHL+oB/mfuwSqD8nfUBP3I7
o4rViyLuL1i/YEvnsUMHcNcFARX3NoxnHXhdnnfXf3LrxbMO4B/7+JYO/RzP
OoCfPGzg5tA9kXUAF3UArzq0U73Ej6msA/iJwjcBEf0zWQfw7E2N8/Vn57AO
4E/dzw4xXvmNdQDfUHx46t1C5Z5o8I50XzPGX3Cx/WA9wtk2fcPdvySzbuDR
r3+e8X2UyLqBmyeHvKidrdynBj702+UpvXUTWTfmw756hr1RdAMXdeP1G062
FU71VXQDbzIgdVVq9QzWDXxL0JnErMxs1g38vO7uzUdb5rFu4HOG9rz6u30B
6wa++OmJlGXzS1g3cD5/ieYn2IOnd770GnVEGbfB3x9SDaizNJ31BK/buk37
0lEprCf4tcpr3vTyTWI9wX3cdj5s3yWJ9QTP/33er9n0JNYTXNQT/N6XG79G
3khhPcGv7C3XoCAxjfUEb3azOPpt3SzWE3zbhKUeBV9yWE/w4Uejc0fOUe43
B7+RELw2MLSY9QQX9YT/N3X63taq5t943IM/IbZbpP+Zf+nGWt1s1h/p63Rs
ty/TP4f1R/qxeyc9652axhzp96fusFizLZPrhddRdq8bMOOkUl9IP2e6V/A2
uzSuL6TvNWde5SYzk5kj/X2DIQuqO6RwPSK966PZwbYqpX6RfpytUZznduXe
QKRXCfXL32+bp2Tr1ElhLuaDeue4xaeWz8t4Kf0L6R9SOdEekN53x5QvV0yV
fof080gHtBOkfzvs/tf79VXMkf4g6Yz2w+ti4nb2O3dC6adIb0D1iHaF9CkV
q+l3HvyD2xW4aF/B7xTbD3hHei7aA7gvlR/1Di6TDqhf8LakJ+oRXEuoF16f
RfUO/cHRfqAzeFlqh7xvlvgEas+8XxTnDRT86Rd8nyD5x6IO4IOp/0IH8C3U
36EDeCMaH6AD+CUaT6AD+F0af/geTOLY/4L3Zb+fxkO8L6/DovET78v7Qmi8
xftyvFR4X/AZNP7jfcHP0HyB9wXfQPML3pf3hdN8hPfl/Gn+wvuCi+8LPpzm
U7wveCzNv3hfcBearzF+Yh1QM5r38b7gq8lOwPuCe5FdwffSEc8kOwTvC36U
7Ba8L3glsnPwvuDZwngFfoLsKLR/Pg+G7C7ow+UhOw368PovsuugD/hSsgMx
PoCL8w786RWPDiWEm2lzOwE/QHYmdON1VWSXQjfw02THQjfwSmT3QjfwJ2Qn
QzdwUTfwVLLDoRv4RLLboRs47HzoxvED8gugG/gm8iOgG6cXdEM8YOzF5Q3a
OOqwbuBXyH+BbuC55O9AN3Bz8o+gG/gu8qd4/RPxheR/QTfwLEE38J7k3/G9
xsS/kj8I3fj7P/mP0A0c/iZ0A6+fbda3WVfl3kPwqXT/Hd+PTNzssuV//iz0
5LjsgfHj14eUYT15HQH5xdATvDL50dATvIj8bugJ/rvRHz8deoLXIb8eeoKL
evJ3P4obQE/wVxRn4PM+iF+muAT05PgxxTGgJ7gXxT2gJ3+/WrJ/9FztANaT
1ysF3PkvfoL91YgnFNeeddPkcKCMfcgcR3/Zs8XLSiEy9uuCV0nV/R69K1zG
flc+By4y6lr9t1Ey9oWCL720dl6VMvFyMM274E1p/0UX+r7I31dT9s4qraCS
D9F3PvDoyNSmW+7kyVn0vQE8QVXZ2cevQB5B6xh4nVHa75mt9/6Sb9B6BV5P
5FASr125jA/iaxzfov6L+CniDPuqZB0o2+mLjPgp+KejOv/cyIqUET8Ff2Jw
tdy79zF8/yavo2yaVnrZPJ7vzQRvSvtxEG/l/dBNi6e4L8qVsU8MfHFszfqR
2vky9k2B3+5SrziherGMfUTgdVS6r3waaftgHzXiA8bmk68394mRsQ8ZPGND
6Y6qleNk7NcFT5Atrvl8jJex3gVcRfutsN4F/O2Q8qU/pnyTsd4F3OTCoBJX
uVDGehfe7zX4xMJK53/LiM/CHy+h/W6IF7P/brxz4eLD+TK+s8IPdaJ9hTjX
AHayYTeLk4fc8+Wrgh9Uj+znxoK/c4Ds8PeCX2NN9vwewX95QH6BmQY/ZaYG
v+OZ4F8gn/qCHzGXnrtO8BccqJxhgl9Ql94L+7jAm5EO2O8k+o/raXyAnWy4
2ru7nuE3OZfGB/DeJxZ39/5HJWO/PZ9zlr9iodGVDBn70sG3GTwKGPs9Vcb+
bbbzz1TdGNInRcY+VfAO37UedTNNlrE/E/xu5l6fqtNTZOxLBP9Qp1+HZ7vS
ZOzT4/PnrqWOWTw7S8a+NfBujifq3FmXJ2N/l+gHPadxAPbz7Dd91+pfzJVx
jgDvG1hfyfNDrWwZ++3B7bb3WOByIF3GvnRwh8+9y46omyrj+xx47OWRowbu
SpKxrxL8aefQ1/ovkmV8V+B9h/0uztJfniZj3x349/K+kx7+zJZ3UH+HPVxh
9YuY/jNzZIn6O/jaCe86l0zKlLFPHjwzNejokuZpMr7jgk/sYdFweo9EGevD
wN813tr/3pskuRV9/4Y9ee7QsnYLx2TLCfT9m8/JcFz5ft20dPk9fc+GHWXi
29BtkZwhY90bf+/9HR95zCdAxvo28E0Zh/WDD32S8T0Y416/G8+rHb4aLmMf
HcYZVwd3k/NxyTL2oYGfOaj3ILRZjFybxpHjwj6yT1RO8M5xDxb2nRMvLxf2
i2EfB85xANf/YRcb/W/6DgIvTxznIICfadvJZtDKBDlN4GeJ4xwBcN9RU/ca
NU6Srwj8JXHs78I4Wb7uHv/4vAQZ+6/AW18/03ZUr0QZ+6/Ag9+U/ZCxNlHG
OQXgpzqvrhhm8q+fTuulwEfdiWhV5JIkY/8Y4lrFLWd+HTghScY+Lo53Rflv
mz02ScY+K/AyTZu+UhUp90GDb08LfLtvrXJvNbjfvI3a9YenyNj3hbjH7UXb
9l4pTZKx/4r3sV1ua63fJlnGPiiMh4gjYX0V0l+m8cpKGM/H03g+i9JhPEmi
/VPYNwWO52JfE/gdKuda2leAfv2C3gv7rPh8RNIH+6A4jkF6Yl8T+E/SH+vP
0H9HUH1hHRj4J6p3rMcCR/vBuQno12iHxgL3IY7zBcDRnp0Efpo49tuDo79k
Cxz9C/umwLFPE+cXYJxJJHsG6y3A21O/xn5+cNhF+K4MHn/fr3bqvhgZ+6PA
XWg8CaPvppyPrc8il5QEOQf7hPEdm8Yl7LuAH/SU7EnsowDf4Gl9r+7FCBnf
ocH70riHdTmw/7XqRO2KNA2Vsd6X183R+In1EBhXPff6ZjrrfWQ/QrSTsa4F
421D2mexG+uSaZzMj0hu4uIWK2PfMu/rdVAdeb8nQ84SuDVxrIdDPrVsfetm
bfslY38y0ve7H9/53vFEOUngfYljPRN4hsXlaa4Df6pxFXHsMwfXvdGiaXw1
XZ+5Aq9AHOdwYdz77TqkdJ5rnnyLvq+DPxtT16p7xxx5M+kDfvW628wNm9Pk
QbS+CnxEo4lFrgtSWQc+J2ZncePZ03+w/Qz+bq2Df55ULGM/PHhcJXn4rdHa
Pipqb+AXKlg/vzBe1wfnZ2H8hP2A9WQY96zufqyS9+84g3pHenPaV4V1MOB5
2vktu5X8kHEOF/LpSnbXGsE+r0d2Ke8zIX7sY4FTD7NkGev8wI8Sx3kKyH9B
RozNwvWFchA9F+PqZOLIh/fd0nvV//Rn/RDGybkG8/cN66jrY0z6gMfRe2Hd
EngH7Kui9TrgTQMfz7BtmCfvpXaC8XMf6X+Y2gOf00P1iHWW4BOoPWCdENtd
1K78qB9xvJHap96T/80Lrv/hOKcMPIvaf67AY4ljPyd4f+pf+gIfTBz7MMHn
Ur+eJ/DtxGuQPmI8DeemgXcjP3Ec9RfwMjQ+YB8p+M4az04caxIrYx8p+E8a
l7COiteR7Xe473X/q4z9lrw/j/xopMf4+YLGScTVwVF+xGcwTk6heCDiWnwu
fnFuUMSLOI7n8Hk5FHe1EfpLQ+ov3QX/rgVxpEc7j6bvQUgPPoe+JyI92u0F
+i6J9OAu9D0X6dEOrei7MNLzeUtTtJ2n62WyzuI8gnEY+mi9W2prsqWU04OL
6Vkfh/KJdlYlauN5JrVb5IP07+L2l/PxUO7R4/NUqL9gHsQ42dfkxcmLVXM5
f3DrKv2CIwyLOH/wAct8euou1uF82C697rhgxrTvMtZJg1vd3DgurHoW5w8e
8TFseHXdQs4ffKPJtLEt/bQ4fz4fov7kHgbXCjl/8J61XO+7X8vh/MHHHF72
YmjSd84f3LYkI9ip/2+2Bzg+4NBMLzSvmPMHfz6uQu/Nr/I4f/DXxJE/eDzl
g/z5/C56LvLn/fpUTuQP3o/eC/nzOE86IH+029WkG/IHDyGdkT/4AqoX5A/u
T/WI/NHOewv1jvHtN423eC7ST6f2EyeMt0lCu0V6U2qH1sL4uZTGTzwX45sv
tXPkD76E+gvS835l6l9ID1749k9/RHpxfMN5PWK/LhHaTyDVuxfZRagvS9P5
TkU7fsl9aZ0udB6Q1WGH3qkSeZPA2xDfSvlAn2Syc/xoXz3vgzkw+tmgPcny
OJpfwAfkm3byNAqUsW6V1+EajvsvPdatgiM91kdiPPlI+zv0sW6PxoFI2ofy
gtKDz6X9WbY4R5X6dVWyEywEXps4zjMC70k6jBT4IOKOpA/6dePWneYdNS+Q
cf4R+E7aJ/WF7ArwVVQvc4T++4XqEe+FehxB+5Xg74Ab0HOHC3ZRDXqvX+tp
fyW1T+iJekc7bK43dsLH/bo+fQXelXgLqnexfV6iehc5yo/nzqF9Bygn8n/z
vk6cxZYItut4/wRxfIfi/f30nQv9CNx4yZHGtUzC2Z8S5zVwcR0j+pfI8f1C
5NhngvbQ/EfufP0uSTI4rw+ZOX5eetVkLo8YB54r1HsO1Tu+f6F+ESeB3Q7+
VtWo5kZHJX8xvgr/F/xohzGjy1Uq5u9oHM+kdVyw28HbHbruePuesj6Ez6+l
9WDYzwMOHVAecb0HzvPi+3/aVEipOvGHvEng/m3/cDwX488wWteH5/L5gYed
FrYcp3COS1B8A+UR12Ng/AHPJ78S9cjrACl/6M/7kEgfnGcEPqrOoIdDtynx
JfDRxKEzr1OietTWEB/De6Ee0a5Qj3yfCa1vxDzL+yqoX0BnPn9ioNOaRmdi
5XUC1yUOe1tct+mkYT0n0ovrFfWoH4kc6cX1eBupPOBp5CeuF/hK4shHXH/1
QZgfk6h/4fw4pB83ZKbBxwtaPoY0jkHnqcRPB/5vv9Ws/p/nDqbxUGxXKI+4
3gNc9L/ARTvhLM0vGH+yKK6VJMRz5pF9gvEQ82/j1O9FkWs/Mkc+7brVadpo
SixzMZ6zhPwO/g7otv5Bg0RlnQ94J+LIh+PSHe8ONAtJlQMoPgC+df5Ki+Gt
Mjgf8Pvkv6Ddsj9O+ZQV/N+BVM6u5AeBG1N5ugvchDi+T0H/inUePewzWvEH
wR+Qn4jzj1Avg0OtWxxzCufvQeAScW+Kz6P9PJ7oWzV5VbKMc3LRfjAODBc4
xg3sNxP3o2GfMPQ5YTHvREbdRBn7wdAvwii9A8XD0c5rNto/+OCAZPkKxaXB
n1I5EW/Be82g/WKoL97nROsfsE+M1w/8MN28zzeA9QTvTetJsL9FtGNxnj7K
34HG/2KBu9F8sYH6Kcq/guY1La1bXv9XvytD4w/qd9zEwPVueSVs54NPvT61
YHxOojy49E+/FvspxgGxnyKuJXK0W97HRv0R8SXwdNJtHekp2lGvqB+h/1ag
dvuQxh/wJg0+/PdeGB/Ax9N74fwItJ9rFBfFeRPgztRPEW/k872C7oy0cU5i
Dn22z+y8bGpWrBxB+vB+isHLK0WfT+X88V4/N581v2wTwOUBr9RgvH5QYgCP
J+wX6C7eoPVRywfnXICf27BGf1iJjg/OueD9WE1t7M5u1mb9Uc4ONO6h/Hwu
QsSHkHTHABnnuPE6wA8d1wRujZfdBP6JOOK0yD/vd7Ot55JiZLRzrq/TU2Oj
bXV9fKh+kb7o1B8O/0icR7S0bL3+r/Xn5Si9ON+1pXYr2oGHNKw/1NLK+D/n
9+eoD+z/on1qedTexHl8FXGxPPN+r1kTfkg9vnTfwOnkOp1rav2lHt0nK5bn
67RLt+ctdlB77n5r80XjnNV120P3UIvv+6FW5Gn3jkfVyplsb5/nWEHdPp/U
qM20/TPV7epFCw/09Y7LVvMLOlSyPPtqufr+gnYtJ9qWOapuD/c6k+QyKD5b
7X0jtpt/qNpO3V4KpnuWxXI2GxndenZ/9fag/6F7YkTXk+rrLub8XtX+9WG1
8pht+zip7PnTanoOonvqRT1DOtfQt++pPp5bdWw9qkPmXDV9HD3c041K96vp
Y/DiflDNDPV1nivXtzFpmHhRjQfkfd3cad0ttXFSU3k0tUNN9fi39aKp3jXV
y9+2N03tR1P711RfmnTWpKemfqqpXjT1O03tSlM71NRuNbV/Tf1aU3vTNJ5o
Gn80tWfcV8HrId9uOrD7SpKM+yp4/+Z91wMxQ5Jk3N8A3rvm8LFfE1PlvvSd
BfkPGuVb7kDDWBn3W4DX+ba8dGSNJBnnZ4HXq/5uU3y5VBnnZ4H3oHU+OPcZ
73V3+K6sOQvj2Q8Ff7JAZfB7Qgr7m+CBtI4I51zwOhlad4Rzovk7Ka1TwnnN
4FjXhHN8wJvVfdK6k3+yjPN0wLE+CufagK+h9VQ4XwYc669wDjXqHeu4cB40
3+NE675w3wOfm0Lrx3DOCzjWm+HcCra3aX0azqcAx3o23BvE55HQejmcNw2O
9XU49xkc6/Fw7g841vvh/B0+p5PWB+LcHPA+tJ4Q8UD0r70Un0yh9gwOf2E4
tVe+r4m+R+MeFHCsFzKm9oz+zt/TqV3yufW0jtST2jm4IbUHnMcEjnVQc6g9
870itE51MbVL/i5A61ovUNwG/Bm18y7UbnldHK2bvUrtFvwdrbOtSu0MPIfW
5e6h9Vp8vi/1R9xrAo7+q03tE+Mq1hWvpfYJjnXIhXQ+CLgLrVt+SO0MvBmt
c15KcSfwPjTO4PxTPheExiWcZwqOddQ4943Pj6T13sOp3YLH0/pwnJsGHkPr
yXF+GedD68+n4B4x4livjvO8wA/RuIpztcCx7h3nW4Hfo3XyONcJ47M+rc/h
82uoXW+hdT44vwa8bcvr5xtnRckPqD1gXMV6JJzngv6O9aU4Vwj9DutsD2jY
j2kurGceS+vccD448sE54Ti/G7zHsRcn3u9KlXHeOvqvMfEN1H/QDg1pvSXO
9eDv/rReHefXoD0Ykg44vwM8mNbn4zwR/r5P6/lxzhfqpTrta8A5WeC7aB8E
zsPifSK0b2Ic1Qd0NqR1INtpHTXfO5FXxaZXWraM87/Asb46XFi/3ZDWb8+l
9LzOmfKZSs/Fe1Wk9VcNqT1hXDKn7009hP3vXWgfXD2cA0Pl6U3fcXoI6wra
0bqCqcJ+ug6Uj4kQ1+pPca35QlyuM/Eq9Fy02yn0/QXnyqH8bWg96mVqP5hP
EV+yJn14nXCb7NLxK37LOEeS9/u0/sOhJ9qVW0LvjuVux8hfhP1xy2l/HPRE
PjfJ30S58dy2mya9WtkzmO+J4PKU5vSdkRjG9xqAXzM7vqFH20g+Nwm8kYH/
1he1lXsMwR26bOo1XRXP50RxHFW4nxF8QrFbjwHzlfsZwTtZNt9aNl65r5D3
9Vz8tSaxu3I/Iz/XwdU/4LBynjP42p+nR+R6KfeiYlzq0f1Sx7RKyr0h4K1a
PvSwGhrJOvA5S5dT1r2dG806gNfq72ocUCdOuf8C/lEf24Nn7ZR7Z8DF+xnB
qxRFHttYVXlf8IfNRj4ZUVO5n5HPIWm+PLV1VeWeHbzffvsqMXpXYrg84C2G
TE/4mqGc88/32Aj3JIJPvnSu5EFOHj+X29HTfro7HAs4PZ7/U7h/EDxgXIWm
UeWV+oKuB8lu4Xv3qP8mC/e5g68R7nMHtxLucwfHPezQAby5cG87+FTh3nbw
2cK97WJ58F5i+dEOwW2F++vRP+ylHZE5V5T75sAn3TzQ3q2pcj87eI3KNRdc
Hazcz877WeoU1/gwSrlPELyJ3+awbTWV++PAfZrLx4c/UO5VB19YxuLg6HkZ
yvnqxEumrK3x/ZGKy8/ntNW+XfFoHeX+dHCTbiXDws1Vyn15xF8er9f8UZBy
Txzfg/fDblGNEcr9j+DXXn5arr1eufcNvHwLq0YGdsq9b+Dpxkl+ZaxSuTzI
z3Gmh/GOx8p9beDrmjaO8Z2VpdxbR7xvoyENGlso95HxfpNBd83S8xQ9wce3
1HZNaaXcswZuO2dziedU5b4Y/H9t3JqfCcpU7kHj7y+mjT+0GancFwDea/SF
k22XK+0cz2m1oGBz91HKfWHgu6YcyrJRKfeqoD4/WW8xvWmn3CeFcRL7Q8Ex
zoj3WvK+QiEfHk+E9OA7qTyoJ3CUH3/zurjDdbvbTlTmEfCepAPyYTuBdIPu
4G1JZ+TP58NQvSAdOOqR/Tf40VTveC6vu6N2gueCr6V2hfoDRzscJdhjRmSP
oZzgYnsGR/tHvuBXqb+gnHwuqdC/eL0f9UeUExz9F+0JXI/6O98bS+1LHB/A
F9F4gvKDY/xB+cExXgUJdrt43xD4UGHc4+90NE7ivcAtaVzFe4FjHD4u+NeY
p3jcJ451BUiP53yk+W6p4EdjfkQ+4DlCPihXFZpnkQ+4Jc3LNQU/OovmceTP
/rXQH8FFewDcSLiXB9yB7IpRgj1fm+x5lB98pGCfgMOe4X5FvCrZP56CP96I
7CW8F7h4HinHVwW7Cxx2Go/jxGHX8fkUxNuQHYj35/MHyG6EDnxu+so+v+K3
KnYmuCPZpdABvCrZsXw/JvHOZPdy3I34RLKTpwn+vng/IJ93K+jD5SH7nPdn
Ih+y56EPuBvZ/9CHvzOSvwB9wNuTf1FJg9+E9wVvLtx/x/dJ1q1nrzJS0kO/
54sunLAeo9xDB969a1G3IS2U+8R5v4xw3jJ4vM+NuPtLlXNieZ3SBq24s62V
e+LAxXx43D02d3NYlpIe+Yntk+OlF2qUPlyv2KXi/jvkg/oRnwuOfPD/87hO
5UE6XvdO74X0qM8E0oHjksR7kJ68boz4C9Kfz/Gh+nem+kI/Qf+oKdz3xPH/
nylV9HNiOD143LaN8sITyr1OqK8Jwjmo4Lcu14+8cVY5Px8c99FwObC/aU3h
ydJ45V4n8HV+jwvSLyr3hvC8SXFa6Ib6MSQ/YpQQ1x0i3N/E6/pofq8kxD0m
UtwD+YCvF8oDjvIjPerlNumA9OATSTfoA76e7pdBPqhH6M/noWAeoe/yyIfP
2xwfZ7LJQTnHFfX4RjhPHjp/Ec69h86T2koOUZOV+xqgd3/hfgHoOZHS870n
VM63wnPxHv2pnPibv3MFFz1e5qXcF4/6rUD3yOA9wReTHweOcn4R8gHfQt8F
+P4FKv/C1K0lNibKPRTQZ4xwLwb0WUDpKwlxsAGCPuCbhXslUP5y9F58DwK1
h8XC/U3oR5uE+56gXxU6dxrlw3Pr2DUcvLyLMl7h3y/tX/7MfYlyDrx4Dh50
gW61KR/ojHJN6p7aoMlw5d4rtotofkH+4rpfPscB55tReXg+o/zvUdyMz0mm
f59Kz8XzoNsg9+PTvBco58AjPc4l/n8Ac9XL5A==
   "], {{
     {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFm3ccV9P/xz/3fu74XKEySiWUUZSMQhkhIzNtGVGp7LJXaVBWZlZ29ohK
RoQoSkMhM0SDlmioUMnv9fQ638fvj/N4v+6555577rnnvPep16Nv+z5xqVQ6
Oi2VyqJ7ZKXSQtFE14vyUqlFVCo1E61SKZUGC88Xric8VPhn4WpJqXSZ2h+k
9lsWpdI+oieLVlX9pao/QNenqv2xat+PPnQ9X/XN9Z6P9Hxj4Z1EP9D9O1Ra
q1ylNvep/hnRH3XvQNU9IzpbfT6k+n1Eyyo9hJuozQbdu0ltfhG9UfRQlQt1
71ddtxI+TrS7PvIG4UNU+mgcA0TnqX5+5O9qplJR/fWiP6j+PPXbXX3sKfqx
6p5U6aLyd+5+FogOEm2qcp7ana92XUQfFX1O7/pS+HHRWvrO2Wrzp+oHqXyu
+vGia/T8iap/W/Rx0XsYp8oqXR8v+obo6tzzsZ/G9Xvu+6+JrlfpIDxJtJfe
UV/lJF03EN1Dpa3wd5qfF/SuQ0W31/Pr9M71+i9/6JkP1WYi36q6yWrzhujl
KkOFn+I7dO8E9TFebVfp+amq7yz6nRbIPsKr1aapvmtv9VNNtK8oi6ijnjlA
1yNEX1CbnfW+bsIDVbdXZHyCnm+v/s8W7iD6nd6xn/BI0YHq48jY756q60PU
dnfRZnr+QdU9rz4P0v0DVc6M/K3/ip6i8p7KrSpHqZyj+ttEj1b5J/bcThZ9
Ts8/oz6XpF5DrKVrhBtrnCfqHZtEZ6rt7Sr3615dXQ/Q/UcKzyPz2U/X9YRv
FV6U+l8NZ2y6PiQx/U31bVR3n8qbuq6v+ttEr0y9plnbV4g+m/o9C0SPYc1G
7re/5uUi4dm51/K5YT3vVLjNLNV/kvtZ1vYM1r/w4aJH6v75Ktfp+m99852s
E9GnU7f5XrSJxjNCeJnwvrrXT21O1vUrmoNeoj9XvG9uifzM42p3rugForUY
A32J9oi9745QmRCZJxyusnvF/2KpxrNEpWXkse2o9w5mTer5S1SuEh4puix3
HxtFf8vDfxPtpH66C3cWHRZ5jpifmyN/J9/4YZhb5nhF7v/fSO2biPZQOU33
6misffSe9qJPpN6vn4ruouvPRX8tvAYHqpype4+lfm666A66d67oANEi8X/4
RtdbCF8k3Jf1oHtfif5W+FuHqFyte9snHuM83dtR9y4VPV20hur7qf4yXQ9j
rYZ1f52uX1P9VvoPa3OvoXdFB6v9Dqr/SPvvBuFawlOFbxduyHiEBwjXEH5f
+A7hPYW/Fb5KWNNRmiR8ubC6Lr0jfLVwwfwJd1TldsJb6l2XqV7DKL2t+iuE
VVV6T/hO4b2E5wqfBa+JzLtvUf3uol+o/vzcPPM59XdBbt78h15yiwbwtOp/
ol5lP/4hcym8v/DOavt66j19o+gQ3auj+hnq82K1aSZcT23aC28jvIXwRcJN
hXeB56t9beFpan+G+thVpa6uO6jNtqJV1OYatdlCeIraXCe8Jf9XeI7e10vt
h4W13ZX1rucey82rbhd+Ovd6eFj4JJUr9K/2F31S/Ryn+jXq50HhFsKLwWr/
stqM03d/on7PYd3yfbm/5Ro9+4DaNxf+Re3vD7wOPjlA+CnhH4WfEH5F/bym
fnoKt1P9cNWfrbKrcE3VdRPeTXgH4evh9cLv8o9UX1+4hur/0ruXCBei16pN
FeGP1aaL+j5VZWtd92J+Re/NvObbCN8lfHrueb5aeBxrXd9yBjIi97+7SvXX
a3yHq5/TRL9R/8NV3zgxL4WPIfs/0/Uw1e8m+rnK7fB20Tkqd6B3iE5R6c+3
iH4U9khN0R9T87S7RN/MXH+g3r+1xtlTeJTqvlC7O4UbiL4d9mYV0W9T8887
RF/IvfdfU/tIpQLvUn0hnMOjhC+IzPvge3/o+emip4nepdIS2aF5+0V4vPDx
oqtVPhY+FZr5249h0win6ucw9TlT925knYt+ojKEdSv6c2p+fo/oVF1fr/pa
ov/qOonMJz/W9QDV1xb9o2w+PVP1E3R9MXtW9LzIfAeec3SQwzVUIuHVojVV
1qndO7rfRvQWjW8S8kFjvBndS/gv9pbm833hP4WXq93LwkeK/qTymHAzvkPt
xwmvUJt5un5EeH/RZSqjhI/gf6k8KtxUdILaDRQ+GF1R/Y8VXs46R8ZofGeI
vq92l6t+G9EPVK4Q3lZ0ksqVwtuJvqtnbkDGqp93dN0HPin6D8wqsp75Tmb5
8l5i2c0/WslzeuZV4V+Fv9W9e4X3Ft1Kbc4RflH1n7Ofhb9WfXfkiPDQzPpd
z6DjfZyb/++JXqRn1+udNTT+rmr3h9qsRb+seN4PFX0eWSTcSXSN2mfwMtXP
RHaiB6DTCvcSflT488LybKnaTEKmCP8m/Glh/fIptZkmfBPrSPVL+EbhxcIr
hL9ALgkvF54lnFesr6PfHlvx+kef/0l0rsp1wlnFfHsj67NiPvAXukbFfI/v
/z63ToxufJTqNws/Lfyv6Dy9ayq2A0KGd7DuKtat0bEL/q/aTGONCH9ZWI9f
LjxG89EbHljxHmYvL6pYl7w49hrmubtU3xD+mnotbRZdGnnPcq+92i6PvJ8X
qt0Y9oHoPuqrCnpC7rl8Ar4heljk/TUo/G/+e3PRBSqjhY8SvVbPbKE21+SW
BegT34g2qPjZbqJ7VrzHd9TYf9MzE/VsO9HfE++j9qInpl57rYUHwbPQM+BD
GvOsyHr7hcIXqLRD16tYpz0Y/VztthTuL/qP6KbI71uUeB8dI/q3ymzhs0WP
Sf0tLYSbVDwfe6B3qNyqulkVr+117Fnhl1S/OSn9pwg8qfKn8EbVPyX8l/Am
4VeFO7HORV9U+Qf+pPqxwh1Uv73oKJV/VR+hX6msZVxqM1o4Zm2IvqISCcei
Y1TK8DjRZ5A1wtuKPqvSVng70edVNrK/1c9i4bcS8/zVwo1Y56IbVE4Vrin6
C+9AR1Gbn4VfTrxPFwlfrDa1RReo/C5cjXUqvEltNgs/XpjX/8V+EV6oNlWx
uYSXC9cXXamyRng30eEqP6j9SrW5R/h7/rnwncJvJl7P9wrPF14lfLfwl8Ir
Kv6v/N+zRN9S/Y7qs6vG+aZwbeEzhN8Q3gEdFF4nXF+4R249ATvqC9GR8B/1
uUH9XFnxfhkMzW2Pv6Q1+bzKJcJNVNdX7Qeq/Qy1eVD4V+G1FdvstKHt/cJL
VL9G9fcJL0a+Cd8l/Knwr8IPCC9FFgk/Wlj+rRd+jPkR/lP4YeHjNebqopNV
dsq8Dquo9NW7ns08Psa5j8Y2QvUr9Ow6PftyZlmwr+prVrwnPsjNLw9W/QjR
u9X2cOGl6IcV8zH42auJfQ74HvZP/a6tE88f/HyF2jdL/b0XsaZT66LzVL9d
aj1qjnC11LrTZ8LbpNa1PhfurHf8HnTOU1VWBr30bI3hZ/RO0d4qG4QPFN07
+BDwJbDP5gr3TryHvkXnSrzGvxY+B54T26buGlk/Zmw/6L3PJ5ZTCbJe79sg
fC5+ArX9MTK/flT3OiDH1b4ndnVkHv5cYj8J/pIDdP2X6ptWvL7Q334se92h
4/0kfFzsZ+ERD2PfMjZs4NT68Ieii9TmWuzb2PoQetEU/Buxbfg+uvdQap32
fdGfVHeV6u4VfTSzjYU/Z0T4p91Ep+XWX/A1fZnZPsUH8kdq39Bi0Qhbt2Q+
g/1xebBBaqj9h8Ir1Ga4vvNo1f2mce2s6yOR+2XzO76pG/wPeVzymmD/oZPP
L5tv0f/pog9Fll/7qjyoNo1U31V0QWYbH7vs98z2PX6YpxPbDv+qn9aZ7Y/j
M/O874XPT8wLfxC+IDH/myd8YWJ/xhzs5siyfV/Vf4+vRfVNwnrA/3SaSh2V
qyrWKSZjl8BTS/bXoWusiXxvlp7fBV1X9R1Zi6p7WO3PxBZV/Se6/6LqnmKd
oJ/ntpvwxaHH1FfZuWRfDvurMf80sV2wFrsp9z/AP9MOWSg8HDsrMo9irZwd
5o35+1L3Jmh8r6rtV8KN1OYB0a9z9z0itx50fFh3+HuuRn4h/yLLX2ywHyLr
IfuofJubPi56Z2bdGD/SAXpPs9i2yvPBvhkeW69FLiNr0HfRe5E1VTLrGu31
3vWZ5fhNuWXgLOGzRN9KrVcPTC0nP2E9iKa55S9yMBP+tGRZiWz5Rrgn6wJ/
Vew5xXa8PPgHx2keq4u+iq6mZz8rWZa1DuuhluaqOfpUZL6GXot+ix+lkcaZ
qN2W2C7IUtWPxwbXM3XVfpj6K+t+HPs6i92+fvjnO0b287ZARrDORKuktpff
Knv+msa2G7dK7R+YoPqz1W8r4SGZ9T78Mzen5v3TVN8l8XgXhTFvDjrbgaKb
VLoJNxCdHXsNzIrNx+ZF5pVNw79jXtIwD6zjbfW+GZF9j3fnXhdt9K1L4c2R
/QKzNb56/K/UfGxuZJt2Q2rbuZ7o62W3xRbeAjtZ7aqIbq3STbiqaFz2viuL
PiO6Ch1Y9CmVxeiBok+qLBT+SrSxxjFXdGTg/+2Ee2H7R7aB8dOxFpuF+Xwi
9jr+XLSV2lWPrVfzX6aFf1Nd1ys1xoWF9z4+6AV6dklkXRA9EPtlX7W5Dd1N
9/6MPL+bQhvWCrICeYQMqJvYhsImfSFzHePcS/X3lGwLrxVdH3m+1gYegH1z
UMX/ExkbZ14DddClyvatVxdtUPhZ1ga2DnOfZl7P/KMdKvatMif4BOok1sEP
Tv2NnwUex33mDt8Bvmv05CHwpeAfw0+Whv53S+0TYbz1M8s/5GDD1PYZ/m38
3MzHkjAn/K8Vkf2E25Ttx9xWdJTeUUv4OPyXjFtt5/Jf8LkIL6zYNwSfny98
i/Cxwt8KjxQ+S3gB+ojwgegSwv2YO+EvhG8WPkb4m4p1EeTPTqnlE3KqFv4Z
tTmANV2xvtRYdSeJjlD9qcho9Dfhzshu4Uz3tlSbFvgwC/vspqMTitZUmw/U
d0PV78k4RO8JfBv+vVz3joDn6Pn7db8j/FXPxom/dw/V35RZnn5dsT8I/v8d
eqBwJ+F56LfCpyCzhP9Un22Fd9GzV2SWZZ+pfnBmne3LinW2szXPF4kOSe1P
nCh6Q2r/3YTUugU6xqex9Qb0h0/Yi+hvyA7GjI4nPEZ0ZOxYzheiY4IPGV/y
cYllNHvpgfDsWNGhuneu2l6iMTwbYihR8N3Bl5BRx2XWL95J7UPHl14DXbHs
GMP2+GMzz+FXFccYiDXUUf1U+AH7NrbNwTgZ7wfhe/nuF3TvJfZ8bF/f/2Ta
u2EemI+PuCc8hbYqLwvPEM1El0Xez3vqG+8u2X/Vo+L6hhXze/j+4pJja3Vj
x5N+FC3guSo3xI6jEEMhAFhP+N/YMauGsX1HaeBbyKPTY1/Dk7FjeJY9Bm0Q
cL/E99FBJuSOc60JekUWZNBB+DBj+7rx0b0d2a+eYHMGmf5Q0A3QEfBnIP/x
zX+m8kZkH/7XKm9F9r/j/8BPg4+fuBj98+6Nsb99Q2xfwebI84Xv983IMQB8
JPRJHJDYRe3YsYQ/Y+P1Kr/CJ1SWx/adTYL/ZJavyNlq6AHMY2xZji/oQ9GN
avNMZHlcN8xrFOYWmbZP0PHooxz+19DEsTZibuh0jUL7/rFjNug6xG3A6HYf
B/0cPb1NkPv0s0q0hspKlS3CmFtl1m2rxdZvF8fGvwR5tET0ddHfRLdTWRFb
B9wq9v+ATxKvIW6zMHb9gtj6GusK2YzNhu2GH4y4UM3YsaE1sfFqlRka67jI
cRZ0OjB7IK3Yx/mj+FX1MHfoSOhRzwr/WvI8Uc834neag0zPLUPRa/kNk4IN
gi1yWWzfFPrzKNroeiz8P3Of6Mlvp9bb0d/fS7334QG0hwd8r/F0ju37Wqh7
VXXvucjxU3w44G3Cf8QfyHo4h3kU3rvitb82jPk/n2AUxh25DTJ4dajnXx+k
NTBSdUep/70z+xPHBz3/+dDm9dxxYeLDPLc69Plr6lgnMc+Bevc18NOKdf2n
wvjxHRKfIk6FL/r9yDHNualtsSdFt6o4ZvhT8IVMjhw3HJeblxCjHp17rxB/
O5A1FjnGSpycfU3MHR/+u5FjYfD1MZH57C+p9SNiocRsGQO8e5P6ejRyTJAY
I8+y5rZT/2Mj25v4IZnjdqp7KrFduVn7ZXLiOCFx2mnhe1kP6BfoGQvgTYlt
TGKhXUI9a+Oj1GPDzv0pdRyA2OlKtZvCf2OugkxBtsxN/j/2SxyZNpvw/QtX
9FwT0Vxla2xd0UcSy8f1Gmc5s02KXnpjZh0Am5V4EfFIvudv9Jig57yQ2Eea
4jfQ9d8l5yewj4h13iJ6T+b+C70ryewbQN++L7NehN/gscSy/m+N4fHEcnyD
8BOJ9YqNwrcFewS75NZg12DfdMot088nflLYR0FMb0hsO6J25P2xU1hjzAM2
BbG4kYl1mE3o1Yn1JQyX9rl1cuJ77NEu4V+0y20HnIeMDjpJJPpwYn1jXdn/
i7yCm0TvzG1Dt1X7mzSWS2P3MwTdC1knOiV3nPEa4UPga7Ft134B48v4b68E
nsz38F3zS+7vstDnPplzOcjp6JibJ11XcQGfLDpI42yAblC2rc6exzd+NfpM
bP5+W2JdcaHa3JNYl1hW9ljIkWBswxLrkIvK5vfYXPD8KzPPP36s+xPrq6vK
Xn+swxvxRan+K+EeiXNTyFHpzXpIrLuuVPt7E+ulv5ctO+BR8C/0RnwFZ6q/
EzLHC/cSfTE335ieO3aCb+qi3H5T4md3B7ncW/h20Vcz5w/gg0U3G61+PqjY
p/iw6vdNrB8R72ZfPZs7zkK8BV/jBOGTEvsm3xY+MbFv8i3hE/AFZs4ZuTbo
BsRrboP/ZbaH8BX/kDpOdqfoy7n5w0zRPQvnt/yTOUY/VPh94Sty82P0qMtz
6wt7CF+S24Yg1kScu3vJfr4Lc9tH2ElVC8fs3sbHmTtGMVW4b257p37Fuicx
APz/W2f2md0X9FNye/7jI7F5+9jYPuYXVXdYYt/zS8ItRS+OnIMCDxqVeJ4r
3E8cW8l5LnFeR5ZYd8MWRZ9bmtrGGp6aR+HnJLaMTVG/5Bhyh9w2NbYbPtr3
hNuKjs3NP8lFuSp3bKVFxTE24h3EPY4SvlXvOxg/Weq8pP6p43/EL/APzwtx
N2IXSzPHX4iPLMscxxmMXzC3HESGXin8OLxc97/LjInR/JC5DbGS7zOPh7jP
Wr1jYuK44aUVy2dsSXTDXmH+G6r9VqwHrf8LKtYBtkMPD/Ypdmqn2LIfnobP
FZ8F/75vYh6FLwe9Fj8PNvONsTG8ANo1YOb/9PAP8NGgDxJHY67ujq2bsfcP
CbyoBfMXeAV8C18hPA5fAn4u3j0n1O8i3Dz2M7QnzwqMX45cK/gJ8YtDVXdY
6H9e+BbkBHpQ16Cf41vHXuuZOg+HZ/AfMq5Dw7OLVDrG9j/Co6uH+YB/tAn6
56GFc1OIO/TIbJPOrFiOrCjZz40cqa73HFnYB40vevvUvml81NtiP2XmpZ9W
HMfYQ/hLcl2C3xL/ZZ/M9bPVplXh3BRiXsS+sKkXlO1XRX51V597MReso8K2
DPOPHUQ8D/8KMfzuev7E2PG+6cHOwt5Cx2sT9Lxdgj8Ev8huQcdG18bOwN4g
Dlc/+CjwRfGee8K7RiTW5YntLw/tecfGyH6kf0r+tweF/4vcaB7+7/aZ82qu
Ti3jbonN8/ExgvEz8o3sQeL11SNjxgff2w8eVjgOTx4SOUhHhD7p+w5d3xk7
3j+04vFO1DwfljlH5eDEsdrbY8efGhVuT54PPAyZCx87JHMfNTPLr/5BhmEf
EPfERqrklqfI1fphb2K7oVOjW9OWd5FrSDueo579zPv7hHr2Tr8gO2+tOLeK
MXcMz+PnvalifYV4WePMek774BOgP/hEk+AX3TfzvBDXwPf0Vm5ZQ45kzfBd
yJ3TK+bhp4XYC/5H/FNzA0bP61qxfbwh+MTgq/gsyZ1pGVtfbxX+A+86IvY9
6snrOCb2d/As/Ju8nqGxdR10kjMr5rH/5VTk/l/8N/II4fPwe75jUOh/cPgu
vof3Xx/eRf4huF+gA0I9bXmG78Tex3fA+46KPW76HFTxf+B/4ssbGsaGnxlM
3u86Yo6J87jw4WIv3oU/JnO8oG5un/PykvVmZCgxd2Lv5BRin28tvHvh/NNx
omMz54rsr/sbC6/Rmyv2aS8r2UfGfH0e5o9YHnzltcI8CF5UNXXs77eS+dFl
hfUz+MkXYV+cnFuO4+N+Kbc+EAs3r1jGsV6xC4ld4kMhP6RR4rygI3X/2MSy
71jhywvrdvA0dHX8t7uK9k/s194ida4VsgI/PzFH+OLrhfMJkLMtM+tL5Egv
zD2v8OVU7S7FVoGNoZ8UztFpmzsWjdw8IHHOz8m6/7Roz8L5WCfmzqXG7mpN
vCZzriwxbmINv5Rs2/QNcrEBvk9kmerGF9ZHV5XsV0RXJId1cW49Cr5K3gQ6
GDmcy3OvGfYj+5KccvwFWwqfA29XHxMK20X4pvErfp1ZbyT+js+5nq7fFu1V
OA+MOPucwKNOUh9v5taRyK2+orCejU9yZubcUeLaj+TWqYmVLc6cK8VcITOQ
HXwbuU/wUHQb8uJWlxyjv6Swro9cG505f2m/3PlOx6ntQ4XzTtBJWqXOTUG3
aZ067wT9h/z7lblzXMmN6SOM0UpM+b3cujE5odib5IuPTp1XCY9mnV+fORdx
j9w5hFtF1qn65c6BIRdmQOb4WgPVfZQ57+4o4feYC3gpc144P+8E1U/S9brY
/vC5mfPBTsltaxMffTG1/CJGSN43ORcPsy9Uf29u24XYILlzxPOaBfnYAR0G
v1/mnLE2uXMlXmF+RC8onHNG7sTlmWPEu+XOOWRdsb6mZc7jOhbbNHN+Guv2
0sx5lfVz+3emx/bfzM6ck8Z34Vt4GX2zsB/gMd1/JfU5gkci51NNz5yn3Vp1
l2XO7dxVeFbmnLfjhXdKnNfXkvHomXpl+1jQUclNInfr1dyxDs5AkBO7Se2f
zJ0DQX7C3sLXBr8APuTrCtvn+NsHFbZ78atjC7OvTxE+XvWjVd9IdRMz5xMe
llt234X8ED0Rnpi4/0MK54bWEh6u51ONcwyyQu3qlp3LeljhPOPa8NfwLPGO
Gwr7HYgLDBbePbVv4ZrCdjj+/GGZ7cqGyBzhpGw7ce/CPIj82+MK58vSBhl/
aZCt+xfOUa7KOsw8n4fm1hmQ3ehn3QrnUPKv+xf2UxBz6V44n5J/1KNwjin/
ZWBh/wJxigMK57xuo/oPM+edthKenDkf9UjhowvnTPN/WxbOsa6DTl44x5q1
hKxB/8Z/cEzhfGjW5LGFc3nZd60L5wGzv/oV9q18E2xwdDH0LWwNcm6JxzQt
nIddLbfNie3ZMvwjcgf+1v1mhXOXqzNvhfOztxI+vHDe847898I508jN3rn9
QuR4nFc4R5P99WTmfFHWTJ/C8SHiROcXztdkX3csnFfaXLhd4VympsJXFvYR
EJPqUDi/9iDVP505D7Ox8FWFfQrEvM7InL/NnPcunBMMHz4tc+4639slc047
/x3bGT33edHTM+dy873EG7BtsJneFx4T+/wLfiv8V3ulzgHeT3RY4bNLHYM8
OrdwrifyGvsRHyu5fm1V/0ZiPQH5gm+N3KrTCuebMv+nFs5JZR1yzgc/5jHY
N4lzk5rrfWerzYzEub77Fs6t3xrdEB9H4jm5JWBigjeHPUvc8IzC+c2svU6F
81lbCJ9ZOAea9dm1cE4w/Pnqwv4dYoinCL+eWL60EX4tca7UkMI2PzHBGwvb
/MTmxgaZgmw5q3A+8dHI2ML+AuKJXQrn3cJDsOWxV8gfxM9J7In42vIgr5cG
/0ZT1XUW7Z35XADrkJgF+UucDSIHsmpk+YccQh6h8+BDJ74FTybvohRkATli
JwvvnNmeOiW2XP+hcMwsrvgcB2dGxmXOPdwBeY3PR/XjEueSkT9IDKad6JTM
OeF878LM53fIZyNf6wR06Ip9W/i4ts3tx8P3h7+8f/BXcG6KXLZqwieklv3o
ACel9jNii5OLS24n8nxqYfvxJPVTN9iPdUT/KmyrkkP0ceH8tH9LnkdyTdEL
Piwsr/H3fxT+7eaS1zffxx4h3o+/CTnCWTvywdgH7xXOhSbvonbmOD1tKpnz
SNEvphTOl8Sn2SV13B+bk3GS41lLuDN6o9qXI+fr7lpY3z892BTo+eRuk2fP
3B6SOgd128h6JGcEiMsQt3mzbN8veix5M9gunIMjrvF75H9NrJA4Jfks5K6g
T6JXkgeLnoC+QH7odmp/imiSOyeH3FFspzlBn/+0bJ8VOjz5b21j29zkOb6L
3EycC05OOPmKqzL7D8lX7Jz57Az7t1PmMxTw2NWZ/Y3khXZMnC/EfycPgZyE
HTLnaUyJrDtdVDhvnrzKYSofRc417ZA474j1g59xasl5rcRoyFsjf+2NsnN4
0NVfK/ssJjp8H/Zoyf+LmMukYMctyawvkTNJDIUcOXLluiXOR2Kuuif227MX
FmX2H5LbSbxmYuQcV+xZbEzOcDyR+dwEObTEPjhTN5+9p+uZJefulnPnPpHT
S5yIc1/fifbKfOYIuUnM6J1go5GjyrNn8nFq953IecJrMvt1yRO+KHEuHHu5
Z+YzTeghFxc+t0CO67rMvkdyktdm/qfkKv+c2RdKPir+f/wj+PY3Zz6XQX4v
8cTXIue6/5s5T4kcZg43TRch//lieGfJ6x87HXubHF3ynbA7sD/Qycljmlg4
p5hces6V4ePG1/1l6nMmnDcZldqmwH82q3COFD6P/52LnCz6SeGYDbGbaanP
kRF3IxeSs2nEf8iXxH7hnOLXhdc0axs78d7U/l9sAXwv6H3fFD5LhS+P2Ca5
0uT2k0eCHcH5xbmFZeuSkvcO+YToY+hl7HfyKL8tnPNGnJHYI+dA8elwHpI8
aOLW5GSh3+J/+qqwHxk/A7ma2IN/lJzbfEeQuZwrJKZP/I7zAk8GfRh+RryV
3AbyQJoXtoFrBH2GXJ53C8dzR0eeO+Jx5FeQy4FOSv4T+Sq3qd9XIsuLd1Rq
l53jgT2Cz29G4bNevYKdQs44tjNnGsnhJO7Geb/bg5zlPAJnt84J9g5nuMgd
JU/7uTB+eC0yCdmEvkQcmbwO8liGpvZFcXb1wMJnz5A1xCeIU8xOvZ/Z18RO
8bPXC/+FPFj+L/nnnD0gB5JzIuR4IF+QM+TFY19zDpF4A3EHdAlyxMnD5IwJ
54nIfUIOETfE55tn5vPw7w/415nPH6H7kYPBelym+u6Zz/dhO5B/iN+Ds974
1P/zezCHuc9Mcd56lJ7dsuzcHnJwjy7ZhkdXImcFWwk9DH0Mfwg5yX9HPhfz
Z2GfO3L5+sLxQvKviI/grydnhDNgnAXDfiOWc17gP5xPHx/5/As5TuQUTy/s
o2HMjJ0zp5yT4hwmZ71fj3xGZnzmc2fotJyxxRb8onAc64LAAzkDw1kYzuDw
vZzfnaM2/weB8teU
         "]], Polygon3DBox[CompressedData["
1:eJwtmwXYFsUXxfd9v52dXSwQJGzEwATE/Kug2Fig2I0BBmIXBnYjtqLY3diU
rSAgIgIqIgZYoICggIj6Pz/OPM83zzdnZ3tn7j333Pu27tl3/9PqWZbtlWeZ
/rLVY5ZtpP9fNGRZ5yrLVtTG04X/U9s8ZNmpRZatq34z9V/R+Braf2PhL7X/
jsKnaLyN8Moaf1k4U/tI/w7TeZ7mfNq/ufAI7d9euKnw6sJjhLcS7qPj1xO+
Vvt3EV5V422Fp2h8B+EVhFcRHibcTvi/MstGCx+q/Z8SXk3jGwp/rvFOwgfp
fNqUna3xDsK52sfCRwu/oP7KGlxNeLT231J4S913VsuyrdVW0j4N2jZOm45S
/3n1r9D5ugnfK3yBcF/tv732vUKtkbbVtW2sxo9U/zn1V9L5Wwq/q/NvLnyc
jt9AuD/vVfjYwu/jEuHthVtFP/9E7b+dcGPhVsLvC3cU7lX4fR2h644SPl/P
f4SuvZ7aAO1b07YxGj9c53tG/Sbatqrwhzp+C+Fhhb/nFjr+TeGt9b+mY7dR
a6xjLtP4vhq/R/2PNf65zr+r8Fwd3094ivAuwnOELxR+TfufKjxU+x8g/KXG
dxf+XeMXC19QeP9bNf668Kca31L4e42fI/yT7u9aXfth3cdhwq9r/z58X+3f
Q/hq4QOE7xMeJjxRx28lPEPHnyv8psbPEX5H44cKT9J4Z+FfNH6+8A46/5XC
a2n8EOHtha8QXlP4YOFOwlcJr52OH6fz3SA8Qbin8E7RuI3w4cIjNX628Nvp
fJN1vR2FZzV4PozQ+FnCb6Xz/6vxUcKHCD8p/IbGTxMeLnyg8Gca31p4po4/
T/gdjffje6frvSt8kfAHwkcIf6X99xNeqP37C08t/b3+FL5U+H3tf4nwKO1/
lPAEjbcXnqbxs4V7a3svtf9Y7Hrnudr3rHt9g0PVf71h2ebsB7WozsE6Xwv1
z9H+p+n4swu/34HCY4RvF+4p/LjwCOH3hC9mvgkfKXyH8HHCTwiPFP5a93Og
8N+6zhXCowt/n3EaP1Z4VOHvM1b4GOEvtP9uwvO0/0XC3wgfLPyP8FXCXfR9
bhReN72f6Ro/SHipxq9k/ukZuurZdpKRa6Fzf6fxo1ji2v9ajX8rfKQwxu8a
nk/nK7T/GOGjhadpvIeGl+h8lwufqfPtpPFr1Jprn521/00aXy8970eF59NZ
2m+i8MDC13s09/e5tvDz3597PX0iPED4M+EThK8pfL3BudfXLcJHCz+W+3sf
r+st4no6/2XCd2n8BOGncr/Pe4R7CT+T+/1M1/6X6l7/0/1fLbyX8GCNd9T4
8cJ3a/8ThZ/O/b721vjDwtsKnyjcVfg+bL/wccw34X463x863yXMXx1/u8bP
1f1MFt5K72uJxnPtf73wvtr/GY13Fu4tvJ/ws8I7Cp+EvSh8P98Inyx8XeHv
90Du772P9n9E+H/MW+HrC3//B3Pblz01fq9wh7Refyx8/lnCpwp30/hw4X2E
TxG+U+PHCz+Z+3u21fghaT7tIbwLdl54OT3D9+rvip8QXl54Bt8buy7cSPg7
9T8vfP2v0/N9IHwp70/v423h3aPfz6Zpfu8mfJvwJml+f1x4/n6a3u+mGu8r
vILwXsKbRNuL5YW7Cm8cbR+XE96T9VH4+0xP75Pvz/OcpOt/gr0VvhV/mL7n
9MLfdwf9/1u4o853Lv5c4915/uj5uH6yHx2i7d3KwvsJbxO9vlsm+zy+8Pyf
mObT5tH2uKlwN+Fto+1Rq2Tvto62Zy2Sv1io1lLn+FjvcxXNnW5q22itnlu3
Pzsq2LdNVBuPjRNuof4Tam+o/6ra4+p3V7tY/fV1/ECd/yOdfzH+S+f5UWOd
1aao/3rwsQeq9Vf/IbWr1B+m9qX6P0b78zd0/I86fgD2S3icxqazXvW/t85/
vLZNUP8itZVrvofX4Dxqj6m/jtrHut9FwuNrvmfu/T21F9S/QO1e9a9W27jm
be+r/5bac+qfq3YP59bzfKD+S7r3kfS17UXh89R+0vkXCI9T/w5stvpD1B4V
XoNjsLHCszPf0yvqH84zZt7nJfU31zn/VH9nbTtWzz5Z1/le+H9qk9SPev6/
1P8Lm639H1S7UriT2unqd8Dfqz9V+w5Vf4a2Xad9T9G2mep/yDdU/231p2E/
dE9HCm+q/a/SO/4XO8KzwgFy2xXsy6Y1c5ChOn4v9W/X8V9g/4W3Fe4jPKOy
XcO+dVB7RPtvpnuYo/4D2CTt+77a4cIjtP9X2n8Djf8sfLPGz9TYGLXewtM0
/g3+Sf8vZP1o23TercZPxhao/y3zX8cvFb5M+5yuscbC7wv/pvHvsP/6f6jG
euJD1N9Q47NqnpNnRX//ruofk753Q+nv2Uzv+Wvmq7adovFe2vaF+n/pmEHq
P6tnm4m91Xv7VngL1oT6m2n7APUHM9/Uf1HvYy34ocYq9ffUtts1tq/aD9hY
Xe8QjXXlu7L+1F9V7TqN363/p2r8aP1fQcc+U3rNsHZa6P98td/r7rNm7tL/
r7lO3fNxuP7vrmOuVv8t9R9T/w/9b6V2PXNA/79Q27nmay6qe94wf9bQ/7/r
5lRwNTgAXGt4OvdR+t+owTYH24MNgSu+Uvd82kz/6xo/SOOr5rY5K1XmYHC9
yzNzs/+0X2u1gTpmkP4vqfvaNzHf9H9Y9Himcz2p+5+m/vo1P+N0tXW0rT/n
0jkXwR+0bRONr8C6Ufuu7v6FzDneU+G1tY6+5XDuRcdP1dj+2naCrvWp9pkm
3A57UjcPhg93qZlDtM797u5Te1f9R7XtRvV3q9nn3lb4XIX+z9f5Hwt+lrdr
tgdr6XrT1T+WOY0vDf7WI9W+wXYGv4v31Garv52ucYv692MP1Z+je9oOrqP/
89R+UGtc95odqf8z1drXvO1Htd10vcuE71T/0dI2BFvSTP9/U9tV2y4XflP9
R0rPYeZyE/3/WW17XfNW4T2xKer/om1bqt9U/2dzDR1zr/Azutef9Lzf65m2
En5O+/4gvKDB7/5uGvdPvKP+PHiuxpcvPXex+7+l9Ta05nuqtP9KxGe6Trdk
z7EHI2qe06vwboR3YX4n+3Zj8PO9gX9RP+r8r6g/Xv1ZyV+8WvM7eUD964Of
99XkP25W27Hma2Bvbgp+30PT+h8QvP6GJxv1u1o7+JDusanutdL1Xqv5HX0d
7X/W1vjWGl9Z40t1Dwfqvj+Ac6h/lPb/j7kkfCS2kDhT+25YM6dnvvytsY25
lvavaXydum3wv3XHx2cQfwn/E/w9m6Zv9F20/2mi8S21rQmxVPAY9zhR/Z1L
f2vewTTtv09p/4Sfeol4UP/fqXlOPp6ed0zNaxzfsW7wfP8Sn8T7i16frNNR
Otcv2vZuzTYR2/hKNJ6l7XMq22nsNXOcub6fjulY9z13177L657zun0kvrLC
B8PPtP9i9ZuX9uettN+8yvO9WZrj3+r474ira16DrMVGGn9d/Unq/1rZPzJ3
WNOs7Q2D1+bXNfvXPUrbS+zmO3CZ6Oefr7G5le1r87Qmf9DYj9p+as0cAC7A
fGBt4ldnV56HryR/wdzjPrgf7pe5C5/oBB+s2wf9Ez2/meefVebx8PklKYbb
MNo/VckfPQmP1Hip/wuEnw+2HXuo3YatCbYPL9fMofCfddY/vl77dw72jf+y
/rBlwhOIx3Q/ywk/Hez/mEPMJdY965/nZ61sUZqfxGT/6qX501uJb8Cx4FpD
1Ebho7VfX/XnJH99l/6fJbyB2tHBnAvu9bzaO8EcC/9zl9rNuf37S+pfrDYY
Wx1su9mGv78zms/B68bp/It1/GLhhZk1jA20/Rj1F2lbrnvZtjRXmayxd7R/
a413J77XeIPGf9J4V3x0YX/D98a24zNvVf8Ije9cN4demOzbG+n7ziSWLf3u
+QZfRsfAxMLXM4cKz/8ZcBld/8/KfBrbgA3EFq6i1kn9m9V2LMxne+hcu9a9
BuD0cHtiArSNFdD/NLa39rkQ26Z2i8Z+E65prF6Yb+6nfdZW/1+Nz+RZa46Z
tg/mVj8J/wfnCvZVcIaB8Knc/G2vujn+DsG+/ZcaTlD3XHr9fZf42oqlbSc2
9Gc9/9Rgrg/GtsIrsW3c84o6fpy+1xo6VZuaNbZ707NgAx+rWyNCK0KzQHtC
M0Q7RGM7TPgyXe9KvpeOOQftorIWhiZ2EdoI/rFuTeINYnPhK+q2gT2IlfCP
wvsxh7Hn0Wtpqba9pbFVdK7j6l6ji+vWBNEG0RgP0fm3Vuuv7afV/Dy7a3w+
sa3GLxa+Xud4Bp6jNknn3rmy9oQGdXphzRHtcV04qvD/iCEbrOlG4kO1H4S3
ET5D41frfDfqXJ8K98fWRT9bZ419rn13Zc5q/23h24VjbGJtYnhi+U7Ejzr+
JeHd9V6baqxn3T5xgf5vq/0n4IP4vOo3Uf/YZP/gJviLRzV2ifpbFY7vuJe+
wpsW/gZ8i4O1fUll+95a+DCNb6z+3mpr6Zxrqu1V2GfiO9FUiZeuKX1/nVK8
vI3+f8u74t7gk3Aq7XuQ8A3RehPPMqDud7Ck8HpaGOwvntD/o7V/P3wgWge6
k/oHaNs89Ztr2451PxN8jOtdxbyDQwg/ib9Q/yJ8blpvL2f+5nz7zfgmdR/D
/aE5oz2j4aHldVF7R/3r4OGF+cAu6jfHZpS2I9gTzvlHsD4IHe4BD+Z+S1//
w+B4ZRs4js7fWvscEK3ho+WjqR+u/S8vrFcOyq3HnlZY/71O+Iw0t5hrczLn
DNaJnlvMSebmhYX159ty68WXMCeJr7TvWOHzhDsKryr8mvD60XOdNcfa20B4
z8xrgLXQJnouMoeZy+tGn485ylw9q3A+A1/wUVoL6wnPzZzzmJDWwm9qjYVv
KHz+E9Qfr/3HanxF3rXeV1u0UbX1hS/V/fetzCd+ysw5XmlwHoN8xiw0H429
IdwMe4bGI/yP3veHnE/HP6Hjz+Wbor/AKyvPAebCPpn57vnCW6i/OueqPF/g
wsQo1wTnAMgFkFM4VPtek1sbRiM+UO/idF2vF7Zd24arP7b03GEOka9gTbG2
8AHoL+RYyLWQozke30IMLdxBuETvqWxTyVm0rZzDIZdDDoRcCDkmck0b8g6F
V1f/5Lo1lZYpp0RuiZzUiYVtFLbqBt33WRp7Klg7wL/BNbCx2No7cuvpfQvn
C64XPhO9S/i8ujk0+sMFer7z8UW6xmj1r1O7BT6n/aZWXqOsVTgS/v+cwnr/
Lbn19H6F9enbc+cjNhdeo8E2Bduyqba91mAOub/e72aVv3FT4VD5fpnvd+ae
r/uotdNzLNW2x8lNqT8/s8/Ed+6LDeRZtK1PtE1nPt+Ve36jCaINkpN5AO1K
x2+kY89XGxTML/7MHIMuCebTcBM4SoB/sUaDNZYZ0Zog2iCa3ouFbTbr66Hc
thwNEy0TjRHt/kQduxn2Se2+YM0T7RPNE63/ZG3rqLH+avcHP8O/Gns597Px
zOTeTg1+F2iIaIlokM8X1iDRIsmxPFtYo984N8dAu9+7cs4SDXW5ynxrceYY
eGmwhoqWiob6UOF53iv5eHz9HXVzO2LyB/Cjmg/HwA20372l41piOTSYB+vW
/NH+0XDJfSyIji2IMW4orcGgxeDjywZrqmiraKbkal6s279zzD/JJ8M/4bD4
anIa5DbIQZELIidELur6zLkicmZnBOtx5NLQNIid5qk9WremQSzyq9ojdWvK
aMtoyo8U1mSIReAUzRqs2xDr4oNXxq6X1gMfEr6P+Cp6f2KUZ6LjeGJnfHJj
bGVpvfVh4cGlY0BiQXwueiPxDlri5sK91e+tY97LvOZZ+9ikRsLn57ZV66uV
iTu+izak//to3we1z9baZz3hA5L/Il5A4yZ38VBm7XuK+tvk3v+86BwCuYSH
hSeyVuEAdc+fjZKGT67i6cza/u/R75OY9CX17462peg+H5bWydDLsD9oISs1
eL4Qr6BdjNA+g+uOwYnFyXmPSDb/wMI57GHJ5vdI/nlg3TF6I/WbRfNRbCi2
FLuEfRqY/DccBi6ztvbpR3wBJ687p4e/3kgt17FFgzW/Y6LXP7HF0MpxBfEF
OW/i+V+j5wsc+nn122i8W91riHgFDqFHys7NzS2wm9hP4nO0OGzcTLhhbttH
zoXcyzB8bmGO8DNcODd3gCMsL3xhbu4Ah634Vrm5LZwR2z8gt3+GYy8nfEFu
7s071F92Vu53S06B3AI5VHLTvNMA98z9rvEf+Kobc/MLfA7c/YrcvggfA3e5
MrfvIadBrowcC7kOfBZc+7LcvoycE7mnQZlzx/hAfOvluX0jHBnfdlNuvkGO
htwXOTFyN+R8yK2RQyIXBOdmblycm4v31P9JPJ/e7RL1Z5TOXxXYHI2PL80v
JjfYv70ZHdvdAAcsrbEQ+6MBlKU1gU+D9Ri0AjQLYkU0geXQgyrrjOiNS6M1
ssnBMSWx5c/BcefuaT38WphLNhG+Qvjv6GOxEdiK+6Njb2LwL6LjY2JrbNzk
aA0DLk9Mv0T9y0s/67VqV5bWI9C20XN+I3dfeuxstaW69i+V43qukcOVCuuz
ec36/hZq52XOWeDP0CzQLrBZaOuvsqbx7dhMuGN0LgWNdXa0DUMXRzPFtpGP
QCvFJsyP1jDWyJ0TQNtAY0L3wKajPaGJYQsGpeu9o/ZaZk1+ofoj1J7IrHn+
EZ3TwC/iH8l1YHPR2dEsscVonNSZUG+C9olPQodF88FXkbMiL01+mlxWZ7Wr
M2vK+IdH1Y7InDMhN7x1af3mH207JTpnSRxOPH5G9BxiLnWpOx49tHRsSQxL
LMucm5z4HFxreGFugsZDfoSc0Fd1+yNyRQOw57lz1EMKc7gpiT+yNuFU0xJ/
hGuh6TU0WN9H6zs9xTMtE38kRzwvxdfkjsmpU6sCJyPXfpNwzJ3jfqFwTp3a
FWIKcu1r6VlnC3eB8+v8zYP5Kxz7kOiYhVoSOB+xDPPvg8wxG/MTH7Bcg/MT
+AbWJGvzBO3zXOEcPPEuOVlys9QcUHtATv9h1o5wPbcm9GjhHP0pwZo234ea
BGoTqCF4sHCOfmmKn8ndU1NA7QcxFrUG5OR7BefDyNVTE0CtBTl1agXIybcP
/t7k6r8pHKsS417Lt9Z4yG1jVqycI6f2gZoFcufUHCxqsEZFLQI1CdSiUBNF
rQL6R5+6NQG0AXL0vyf9Ae6IRrhZcM0I2uEQ7TOubnsA9+mbO29J/vIkcmuV
8/Dk4/vxPaJz7+Tgp+r49yrn4dl2QTRHgCugNx2n47urv2bNMfq/Gl8zWtsh
J0hucNNgHgIfeSitD979CfBXHTsoOhdJzHugzvdg9LslJ0xueELhXGIUPkdj
I3Uvq+MbhJ8WnlC5ror6qiewhbnryuC4jyf7BNc+UW10dE0XuhP3eJPwhdHP
Tk3CV7rWB5XrEKhHuBj9SG1F9Udq/OfC90cs2C99f+KNMrieZ/nomhTySuSX
novOeX4VbCPIhX4o/Fvuc/YXng1H1Fhj4cuFL1NbCX6gbb8wX4Wb1lxTt5D1
GH1v1ExMK1xvMET9FbTtEo2tjrMurNf11PtcrP4n2tRM+BqNR+5JuBU+JNkv
uC05Wu6vUJuu8ZbC16l/Qum5hEZ9ovrrRWu55JzJPRPDE8uz7ZbonNOsunMW
5C6uLKy1/pHW/99wPvgmGlPp/BraPPyHfN06heMm4qfj0Z55Hu27ivC10Tmv
X+vOCZAbIAc6t27NHu3+k9K2EpuH7UP/RfuG45Kv7liaH6Npb1k6f0iuA85G
fv7WwtrxorT+XimdNyOn0kX9t7WtbT3VHAivW5hHwid7la7pI6/OnL5X+7Ys
nduAk8HNyDFcFZxTIfeAzcX2tlPbt7SmjbZN/nqtyjWVbzW4hpFay1ujc0lo
XPuXrhEjr8S226LrM9B2Q835cDRZtNgfk399sHScQryyifptS88VarKI766M
rhXprX3OKK1xw1++T/6RnBVxHvEeuSzyteSqqHHsG+2D5iX/DbffuPS1lsVI
rPXStqOqOV74KDoXT03IU9E1ftT67ZS5FhRNilpGNAa0qrfg6MEcBC6CRkZe
hfwK2hk1DL8Gc4ihyd9uF1xzQ+3Qrurvpvai8NeFazS3Cq4ponYT+0LNJj4W
X3uXxrvktoc/Cd8jvEfwGmWt3ia8pcbvT/ZyoHDb3DZrQrInuwTHS1xvaoox
4HQbVdZwdyqs/6Pt3lu5puB17b+G+l+q9UOXFP4e+yO8n8ZHCP9R2H7vHBx/
TUvx2E7BegHxGTWhawRrgtSKolmtGZwzPz/557WD/QvvmxrCjYJr5KgtpOaw
bXCNKLWI6FkrBevFJxfOKTYuXG9CrhGNEE0Ff492SI1y02B/T+0yORjyUKxJ
1uYU4fPRmODYyd90Cc7ZYI+x5+S+4FBwKfhDi2C+AH+hRnqVYI2S2mk0u1bB
8wctj5oA8piscdY69v/IYA2SWt9n8Qe5a4rr0fwbnRu9e3yy3+SFyXGsUDon
To6MOcvc3Uv9vYNtOLacHDi5cGqKmpS2x8TA1KhQq0IOLSabd1vy1zwfetTJ
0TVVqxVew6zlRSmGZI2tk+zNeskmYhuJJ54NrqcZG62hd0o+Ad/QN8Ws6Mu9
S9ek7Fk45qVWpZ367Qvr7aWOH125Jqy1xk8qbI/eDY4piC3Q2MlLkZ9Ce6dm
i7wjObBQuiYODapX4mOPCO8T7MPwZdirY4P1UGpd8R/HBGvEaMOPV9bsPxTe
sLI9PT64Jpbaafzn7sH+D/9ITg2dF72XXBsaMRoZfBDtmPiKWgRilNaVNW00
uz0za93Ea+Ry4exrV453RgfXF91YuMaAHC/1aIMK55jJ8cInXi6sSc5I+R20
SmL+1oXzb2gBxETERtR1of21jta60bz7pPWBLo8+f1B0zTy18+OFQ3RNPLXx
+P88uuad2ndq5hui5z+6Oec8ODo+JbeFhoHW2is6t9wzrV/WM7XE+MATo9co
a/V3tcOi1wxrZ17i56wPAnzqmal3xz6Qp+acvfEN0b9dOD3ZT/hth2DN8dRo
+0otPPrHadE15uRp0USPi/7NAr9doKa+Fl3DTS33aOH/dL6W0do9MTux+/7F
stKhZRoIWgic6wff4jItAk16Zsqfof1Oic4vUwN2j/otorV/9KCjk/2iNmJZ
jb/6N1fW/9AD0RvWjv426yb7wm8g+C3ER1m27IcPQ5jPuXPq8KkXmc+5ORf8
CZuObSfHe0jpNcXa+jVzPmCt6FxHm2Qfa9rnSd3Lmdr/3fS+2gTX+FOrj83G
dqNZHxFt36n9XyB8lPD9wnsnPWi+9n1MuEfunNQy/iR8QG57BR9kfe4v/Jbw
yuo/rNY9N/+Eb94n3FX4DeaE8B3Yl6TfzRS+s7Keh96C/oT/uiQ430b8DaeB
24xJfAcfga+4QO1C9R/S/t1y8+s/C9tT8pTk+NA78LfUCOOvG6t/d+UaYfg6
fHyQ8G657R38eZLwOcH67ViND67825uhzPHCNdTnBdc8U1u9fWkuCqeD22F/
OhTWSNBKyAmRGxql/f9N67shcdoNKtdwPBesofyT+P/ZwTXJ1KrfWlm/Qn/6
PPGPbZM+Cl9nTjA3Otedr75d+++g8ac0PqOwxj1EY+/VrX0/UFnvo+Z6gcbn
RGs31OCgh9yi8fZJL5tSWEOBi1FzR+3dp5Vr7NHv0LexYdgyYqQno2vyqEMi
Zz8sxUf4Ymo+2xGLR+dWyLmgP/LNmWs/554LzBHe1e+55w5zAC0GTsPc4BsR
6+wZ/O1Wrewr0GTQZuBYcJvZublXn8q/tRmTnpd89fLBa5i1jGa7YeF8IFou
v6F4s8EaKlrqRtG5GjQdtB1yhG+nfC25Q3Kkkxqs8ZE73SZYW4H/kQci/0ys
3DhzfMucY67+mnsuFsG2CJv0aoM5H1xwUm4uyD2ytslrcu/8BmGL3DX5/Dah
eTSXIseLXtsoOFZYOb1j5vKuuv4N+P/c9g7bRY6L2JOa/p1y1+R/mewltoq8
L7UFIbj+BAn65QbX7O+b5g+1/I2ir4UPxZfCYeG63+bmtltFzxU0L7QvbCJz
65PctpIYnFi8f2b+37yy7cMmYhuZw9iOH3PPbdbQFOG/c6+tN4NjyU20bSS6
WG6tAP+En8JGYCvQwKnfIG9FbI8/wa98Urf2SU3Q+BSzELuQc7oq2oZiS89A
A9HYfdH5MzgCXAEfja8m/0etNvWjxKJo8sSfaDhoOd3rjn/hSHAlalCox6Dm
YZPCmgy1ENgTauXJuRDfokmgTVDTh/4H5nwv5dYuiK85N/wWvaZFZV/COTn3
QcGxOjF7n9w2F1v2U25bTM0RuRFyJH10rh7BsTsx/Kna55Dg+oxvmd+5axjR
S8mhoGc+HJ0vhLPB3fA/1O5PxL+V5oxwR+YQ9XvUMJALIidEvEtNBrUZ5ETQ
k1iDrEVqoOGXw4K1IPjm0GANDy0Pn4xvpj4NbYeaI2qPsFnYvq9y2zLWPHP1
z9y2gPq3PjVrutTP4tPQBroF+zrsWW9sezBXeybZDzg+XAaOPzUzYQBj49Ea
4ZzYfjjWNNZLMPeCs8Hd+A3Hath7jZ+j620nfEd0rAF3gkOhc74YXA+LhjlX
53whuB4OTXpm7vrpjsGcCe5EDpY5DX9aXv3Po3PJ1LAPjs4/UrN8lfDqlTko
9e8fB3NTfDjazr7Bvn1utNaO5v5iNIf6XP2lubkVMcJ1mXMQxA74XLjkoty+
mHw/2ht8mN8LwHG+0L9/cnMfYh7q91/PHQtRP0b9/tWZ653hPMy/A4K5EBz1
K5ZrMHeF036NvQzmunxfbPsfuX0b9WNoUfB1fi8Cp2L+HxhsT+CIX2KLc3NH
Yle0JfRSdFPy05sE19hulvgVsSeaM7UTX0XnznmHj0TrwfzGgd+otaoc28LN
WiebjN7Lbyb4DWDLyjkDcgfMMfwlMTix48Lcsfmh0fOBeUEsCgeDKy7Izc1G
RWufaKCPRXMCuNS03FwBjgL3nZ+buxCDMBfIwRCbUO+HlkU8ST6VHAW5CmpG
OR85CXITfCP0lEaVtW80G7Qb3glzjRw+76pnNBcnRiZWpn6KWkz0KXQqfMiK
wRwc38I7bBLMWXm3/Kb2s1TDw29tic2JHYgh0HEOj+aqaAJoA1VlrYFvhdbN
b5C/bXBNDfEQMcNxmTVyYon1g7U4ngEdnzWDVrNqWkvUQFJbgGZFPVX76NoF
fDf1DrOifSdz/ln1j4zmymggaCHton1942SPZ5X2t/hduOTt0fUdxIzEjm9q
fLUG1xPAx8g3wXVZ89TCo02R26HmcrXc8TW/g8Km4n8OL53roQaM2lI0D7Qd
avHRQio4Yc0xAPZ3TmltpH2yh+tUtn/kwMiFUYNLLS72CD0WvYjfofB7lJHR
+S/62CBqc9Gfti+cwyQ+5Dc7w4P9L3o9v3fmt2HU8HwQna9Dy2aN81udl9A4
6/a3dwnPLc0HOqT5S30puUE4ATr926XrKKmnfEH7Ly7tv/ZO6wENjVgejg/X
R0sh10m8QtyyqDR/2Cuth79K8819kr2gxoDaly9y1x6gCRC7oLGjFSwtzdeI
aYhtXi79OxBqih+Irm9FKyW/SJ7xz9L8Z+fE77oG89W3M8dNTSrHIsQc8Ne/
S/PVbsl+8ps0fptGjTv1AsQH1Hrze6011e9X+rcl1JRfpP73pXNVzG1yVegp
Y4NzDOQ/0PR4P+Ro0PqouaX2lhwq3wNNEK2Qb863J75EW7k6t5aDXs/cwGdN
jNYW0BLQY/7K7Q/QjvjNLeuD+nD8O3wGDrJ/igXRO+fkfo+8T/IXvON1K2vR
2Aq0beIBYsFfctcm4K/QTuAY2Fv0WWqCyXG2qZwvYu5RIz4B21l6PeyQ+CKa
Ke+bnAxaKvlkfrvCGphUeM2wdtj2WnR8x+92eMdDojVEYkVyWGiL6K3UjZKT
27iyXjc32D+zfheUtsedUzxDTQl1q9SvUmvycfS3xEbgX8nXErtRU3pY6Zp3
fgMBP2G9zS/NZzolvoY9R1uCg+LfLy2s9WNj4BPYB34bQ40ytcrE4HyvxWn+
Mn8uTnrCwaVjOGLd93LHdmjgaOHb151PQ29/MHNND/m6XaO1YWq6qO36ufS3
Jybk+CVJ26Nmld+vdArODVye+XdebQisaq5pObq0XkmdOPXix5bO53FtfvPS
o3Q+lN84YNNXUP+A0r+t2bbu/MVvpfkfmjDaMPfIva5ZONeIxo+WPjq39n9M
6WvBFzdI+Qtqi6gxIt9FzI+9HJ/bflOz/2fwO8Xezi79vtqk+KV7MH+EcxOz
kF/h3viNbHfyMaV/H4smynpCWyd3cUt6h7+UtvfYfe4PzRjtmG/E+v6hdG6c
nDy5+Zmlc9fkzMmd7xfM34iZ0I2aVtZisDXwOfJh1AiRk7o1abXEMtQgU4tM
LoPc35Bkk5pVtlXYTvjwwtL2oWuKx9FgWc+sa7SfVSprjVwbvrZd9LfGFlJ7
8X8MpOi0
         "]], Polygon3DBox[CompressedData["
1:eJwt13mgldMax/HdOfucvU+TBiVlKENCuIqEuKkMJYqkzMNVXS4liqIBpXLN
Q2UIkanZcDVcZWweaVAJURGh0kCT8nla/fE7Zz3f9XvW8K53rXftWjd2ubRz
QSaT+ZKK6EN/xpTKZEaB71N/8Un5TGYDdlo2k2kqvjeXybQpzmSEmZw4T0Ul
mcxGbAa2SUUf7FBsK+9Tchth92JTxeP9fxmbpv0JNFg8WW4XufWU69MBcvvy
jsOayT0fu0/cn68JVtP/WnQM39X+l8Pq+H8s1cGq8vaSV1peZXXX4kOUJ+rv
XZqu/03i9fhH6jfwXiCuIHeg+Z6Fn4GNUDdIfBS+OdoKLr8Ndq4+5vCcjffj
m6luNt4Nm1roWVJnebvxbnJa+n8h1cUulvsNXz0aJnc5/hctVd6JnRxz4atN
hykfXpzW4ETt/6r8Lt+Z/jei43iO1d4YeaOMpQPfTPHj6q7hG4F3wqvxHUTt
lNvTqlg/vv8rj5LzljG+Rw+Iy+Bd5RUXpXWO9W6N/SxoTGOwH7GtxrNefA41
oaHaL813u3KRXI8gcynfn7RAeQd+EV6JrwHfJHEX8a3qJvD0xyoZSy9sG1XR
/pnYh3wNxXfyTeH7FV+MHUN16AntbcJWKZ9Cp9LTWAkdLa82XSf3Sbkvae8k
fQzCZsX88un9iPekjLgsFcurSM2VWxSld2Tfu0J3Kd+OdaVDeG7BjsAqiCvG
fsAqxxortypK847579JvY/0+HnuMdos3xTphJxlvD2yCuDl9Lj6KHpE7X+6b
9AadEPsxxqj9XnzD1Tfka4b1Fl9vLlnt7RXX4L9BfCG+iKc2Pca/EG+JLRPX
jeeELcIuwpaLT6BnsMVYD+wl5QaxvtrsKe6Ln4l9Iv6UDjeW+fizMVa+sdhh
WAvsC/HR9Ki6BfIOxFurv4QWYtuxKlgb8WX0TZxD8qpibcWX07dYMVaO7tDW
ZC+VtExbf66LNpXL8ZWnnLwKfHfzfcZXWt0VPDs9h23YxdSKhvOdghWrK6Lt
ntmp4l9oofp/0HNy56r7TXuPqd9hb4yj8bn0rn23/52Pd/8W7f2O/ajcgibK
XS13D7ZbfFM2nbF7sBw231hfjDXTbl78F+3i+Vc2nQFxFvyin0fUv8bXjcaK
f+Nbmk3rEevSHWuaT+0MNrZ11ETcjs5WrqKdu+W+k0t7Zsn+vRF7pIMxvxfn
MV/VwjTHDeKNfF/HuUYj49sQZw+2UnwWvYUtxS6IZyp3S0F6r0dHW9gk8fnq
m9NTMS/6U941NFfu1lg8fe8Rd6TlmTiIPDu+ieIqNEB7O7Ed2FbxlTSbbbPc
LdhP4pbxLmBr959Dv+xf21jjW7X/B/a7crts+i7F92kO1kf8kfl+TF34tsWZ
irWmKXzr+PbGmsQzomXYXmweNkC8Ul5Dc2ydT+/VH9jVdBXdpr2fsM+Uj6CH
zWO9eRTgpazDzdhX2ivANvOtE19Ik7A1+ijkK+C7JfrBCvmyWCH2H+xrLIvt
lrtdfC3Nw7bJXY8tyKazJM6UjXyt6FtxfXqRbwVfvf3foyXiN2Ie4m/ljuLJ
xZzxodgKbLh4t/lejj0U3yfsBewPrBX2APYV9lp8JLLpexPfnWXYS+KdfJdh
A7Hl2MvYLqxtfFfj3DS39eb2c1E6P5Zgw4rTN2wR9gXV5Fko92G5a+Q24OvC
sxJ7HSsVzwF7AluMDRZv4jsPuxeb5Rl01N6X2lpKtbT3Od+TfD/z/ZOvG9/X
2Fvx3Yp9iA3GvsCeFm/ga4b1xL7EXsR2YG2wAdgi7BlsI3Yudg+2BHse24Zd
jN2PrcJGY/l497FnY77G18G4nqcexrksl97TvjxL5C6mRiVpT8XemlWQvteT
+efzDcomT3i7xt0n3sk4W+Kc5TtIfIHcyfLmFKT73VR1beOdEM+k4fG+iL/h
HRnf/TizjG9I7PO4o8SdqSDd29bG98EYb4w1o+7YYvE6uVPU1aC12HX5dB/q
nk17LfbcycY3F7svzjlxbX3cWJzm8RD2PfYdNeE7Dm+vz/I8b/rfKu4QfP/l
W81zKt4ZuxUrK57Cc49+bxO/ajw3G9sw6oWtjG8q3ak8FLuGHhVv592ivSto
lvZ+j7sKtlncnmbGfTb2DO/78R0zrvHit+nQuI9ic/R9CF8n7BCsX7SF1cA6
YkfF9wNbgR2P3YnVwB6IcwmrjnXAqmP3Y9Owg7GbsEpYzxgHVha7CquI9cCm
Y2WwK+Pugt0TZ2RhugvHnfiSfDqn4ry6wXyf5nm7KK31jIJ0F447cem4S8Wd
nO5XV0Zcn3dC3BfM9524b8a9GnsF26y95vp4GDuet6mc5dpaQXXFnXJpX8T+
OE6b/xYfSY/GWR9M3R2x9+P7FucrdizWFTsyn96dPfIaUGeeg6l3nM18Vflu
4LsKqx53WOyUmK/4ALqL75PCfZ+XTHu+8rHm2AeF+z4xmcuxD+SN1sfsgrQn
Ym/EnTfuviMLUt2UuBPjI+P9krhH7m3+rypOvwka+39OzF9HJ+K7sJtz6Y4W
d7UrlKvF3UW/9WONxOfTPGOpSQ9is/maYTPF1akvNj1+1+TSnGJuVbTRTnxZ
3ION7SfsJuwF7DyaK+9w6s8/S27NXOov+q0c9yfxMTSU50fsDHV94hyPZ2We
q+I8oKHi2jSE7we+0/l6852M/Q97xDzHisfFWZdLez72/vX0ZNxBaAbfwdRH
7jS+4nzaj1u0Nzd+I4oLaYbyQKqr7rn4xsddMfx8RYXpzvBy3NPpO+Vx2mzO
0zB+qyiXpc76mBR3M/5f6TDtbcGeUjcCf5VWy307vq9yD1BezfNEUXpfx2mr
fJw5yiOwlVROfCU1jvtQ/MbAjpQ7Rnk0rcmnZ9EKu125un6rFabfKw9qb3rc
O+XW561AR5ek5xXPbW0+nR+tS9LZEWfID/m0xy7BeirX0lae+mmjr/gVnuH0
vfJ4vhZ8y+M80N8anrFxHotPpw/Ul8um39DxW/o0bLK4TNxJsIlYI+wjcSXq
hk3FzsI+Flem7vH7P95rbJr4IOqFfYo1ifmJq1Fv7DPsbOwT8YHZ9Jsofhsd
n0vrNbAkjT3m8ApWz5gL8RPjbiM+IZfW5iG+13hep7q5NM9BJWn9Yh3r59Pd
fLvnUkduR55S6vfydYozVb+lsL8BxmQ6Ew==
         "]], 
        Polygon3DBox[{{1839, 1202, 1328, 2317, 1705, 1706}, {1701, 1700, 2314,
          1323, 1324, 2315}, {1834, 1197, 1387, 2329, 1694, 1695}, {2050, 
         1472, 1412, 693, 683, 2186}, {1890, 1314, 1004, 1005, 1315, 1891}, {
         2281, 1224, 1064, 1063, 1339, 1905}, {2066, 715, 668, 1096, 1519, 
         2065}, {1885, 1308, 992, 993, 1309, 1886}, {2064, 1518, 1429, 694, 
         689, 2187}, {1714, 1713, 2330, 1389, 1390, 2331}, {1840, 1203, 1329, 
         2318, 1707, 1708}}]}]}, 
     {GrayLevel[0.82], EdgeForm[None], 
      GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJw1lVdsjmEUx9+vT3x9g2hihJifqNEqSkKIVXvUHq3aW8warZUQYtPaSmuv
2kSiJNwhEm5EWiNxgQtXLlwJl35/57g4+f/f85zzjLPe9guLp6xJi6KoCglI
ZhxF+8C89Ciag+I6fC74BP3kYPrH8Hx4b3gWzquQKYkoGoxupnzB9Xyno88E
U9hvjsx+BGvL4SPBE8gK+EnwN2unsN2E7UukEt1J8CDYgn0OaU++l8OfYfsU
Ph/dUbCM77bs0wysY48S5B28gvXG2J8GS2K75wbwT7rd7y24mrVS9Gu0F9IM
fgy8i3Rnz3vgTSRGfwt8j199eLfIUGeJ5wTn4PhkFHVQLOoRS3A/6/vBt6yP
xKcQ7AW+BjNYK8f+MzyPu+2Af4QPgm/SXvDN4EVkHLaXwCtIQ/yvgmXY/cQm
F6z1mCsWx2K780DwOnYD0VWDhUgFfAa4B2mFzV7wATIL/hAsR7Zgcxg8h2Sg
P6+8IUvhzf2ten+XhPnINz3Y+/TOWvyXub387ruNzskOVhddVUNIA/R9wI6q
lzR7s+5/G91pcBj4Bd1wvSNYrAYFu5PudkG1hN018Exs+VbezwTLpXJ6HGzD
2gd8W4PT+f4BL/AYzgYrwTHgN/Rjg9Wcaq8MXICk4AvBich3bCaBnb3Wu4Cf
Epa7/MjqQDHq7ueqblqBb5IW8zGx3Vl5HBybbZ3XUq3zTEd9t8RmXcJiW4D0
Z99G+A7w2j6B7hf1XBqMbwSLg/XUWsUWKcK+k+4brF83KD+eI+XqBf4vOb8J
+y3m+xF8CdjX39YPzPG6nen9o7evxP5wbH39iPc1je1c9bTsZN/O61i53RKs
FlWTN4LVrPZR3eYGq6mewXr4fwwuef1fBnu4Ta73VKHHJM/nz5Bg/rLpBU7z
XE/32HT0GlvncfgXj2Bzb2qwXlXPHtCZwWbXePAI7zoCPo9t7mWnWbzG8V0T
2Wwp19sVS3CRx1CxrFL9w88G6z31YFGwWOguW4P5ah6eT9qMqkjYTEsljCuG
uoN6syZp52f57O3pfacaUfxfJSyPw2M7V7NUvaW3665Z3oPqxdc+j1Iey1ce
z/Xukw/uwq41fLdiHGzmzPLc1Xqtfk1aj2gm3/H5qTla4nEv9XzprpoPE7yP
1E8T8F2p+QG2Zb0dUh3ZfeWrO28Lpt/udZ3tby+OzWes5idri+E7g/239P+a
529MeQzlJ3/lbrT3u/pePab+q/OaVa1n+JxX/6qehvos0kxSzY8Ca8C/6CfM
CQ==
         "]], Polygon3DBox[CompressedData["
1:eJwtlEeMz0EUx2c9/H8J4YBEgtW7kOi9BQl2HZYQ6yBqrLZ6752suqwagkQL
Tlq4iHZwEQclcXByEnESjj7ffOfwMt/35s2bV74znRfWVq1ulFKajzRG/pRS
qi9LaUOk1FCkNBb5gj4M/Tq4uklKHdG7oVc2TekMaxsCLOdsPfgF5yu1j21d
Pt8MPJr9PfjPxOcw+Cc+s8CbwvfpzGbwLfyPsh7B5yX+leAt4B/szwjfq/vn
ErM7eDz+LcDT8TmOfy36YvQ97F0qHKMt+rEce4dWfDti2wk+ha0TeAH4OXhw
OFflPEQ1IxXozdFvgNfj8zjlHoF3hWOVI7vDfVK/viLDwYOQz2WOqdiTyWct
+mxkCngFMdaBe7J3t8g28PLsWxfOf6vqU6/pbwP+nZC6kv0VayV7M8CTkOoy
90iz2of9PGfbE2N/nul61qoyz3oZ/vPYe4jtHnvtC+ervK+CbyMHwuengkeE
a1O/R4JbYXsDPoetNfgytnnoLfG/Av5Qci7K+V/J9Wp2smlP8/sGHoPvDfEl
rFcTY1z4Dt2lGY8Cv8LnRLgfJ8ETCs/nGra3hXNUrqr5PbVNK4zFCXGjXeFZ
qMYOud5e4E9ZV3/Lk2eifCcR9zu4Bttk8EdsG9D7gc/hP6RkflagP0HvgzSg
z0F/Bj5buB+X0N+ALyA3w3yqB99HlqA/wucX+T5A3xZ+D3pL40t+L1XYnhae
s+a9kfOrwNfUg3C/LnN+YZjPircoz3BguEbVqpg17G8P3yWOdAV3CXPnNusY
zhb43AnHVP0T812bC8+6Fv1hYc48APdP5tLecK/Vc3FvbrgfvzXTzPEeYQ6I
C/pThobf29g8v3bgg2Hu6Y7V4Xp19/TC77cm/y9rwvmIz2tzz2eH/xfNQj1d
iu/ScK/PI3fD9Z0GX9R8wvnVFebQ1TB/xS39IXrX5Zk/h8L56X86HH5Duntl
I/8H6qtyU476a/qH+aL+DwjXoFo0w78lc350mN96C/pfFKs3UlH4fb3Ddw7y
uuQzOvsuv7fH+jPC/DwBfi3Ohf/j4+J2mMvdkN6Zs33Durj8H48CrU0=
         "]], 
        Polygon3DBox[{{1693, 530, 918, 917, 2189}, {1716, 481, 840, 839, 
         2190}, {2096, 165, 861, 860, 2188}, {2109, 46, 939, 938, 2193}, {
         1845, 843, 842, 481, 2080}, {2111, 61, 933, 932, 2195}, {2192, 864, 
         863, 165, 1760}, {2196, 921, 920, 530, 2116}, {1717, 533, 912, 911, 
         2191}, {1856, 849, 848, 485, 2084}}]}]}, {}, {}, {}}, {
     {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl01lfTVEYx/FVKRUl48eQ0isyXOnCTaZMeQ3egpnMc0KhkFSSJmOieTbP
JIRM38XFb/+e9X/O2XufZ52VV7B5WVFCCGEcLYpYl7jkYGlKCFnWY+oV6lx1
eVIIaUhFHlpSQ1jEFYkhJHISmmX91oMYQDXS5VPQpDds/RgjuIap8lJ5Bj+1
fo5nqEGxPFM+Da+s3+A1jsprOUs+He/VH/EBx/XqeIZ8JsbUX1Av/8zXMUs+
G9/iWn6Ov8fPYI68jOvkP7kcv3ADC/Rq5Q3q87iEm2jEPtyO761/gS+jCc3Y
H3+rPMf3c7EQS8z0hPwAHpltwaQQOngld/Iq7uLV3M1ruIfXciF61eu4j9dz
P2/gAd7Ig7yJh7iIh3lLcgj59rMNI9bNvBxpk0Notx5VT3ivBnWhd8zGXMxH
tfefx8VxxkhQ/+ZT8qD+o96LY+hDlbyXJ/ADe+K+4ZC8h7sxjq/YHWckP8Jd
6MQnjGJXnK3eYe6Is8I7vI3Pku+M98RDtOMlKuQveAcO4gHacFF+lp9gO+7j
Hu7igt4ZHsI23Il7LLvKpajEadyKvw2t8b+hXxLvG+eAFlxBmTzZTFIwCYvN
9KR8KzKN67Ysg1t5atyHeD64kdO5IZ4zro9njWu5BrYpVMf7chXbznA5PoMr
k/5tQ7jo4jEhXzM74f+5/gvX8Jek
       "]], Line3DBox[CompressedData["
1:eJwl0ckvnHEABuDfkODmKCERy1B7rbWNndZW+9axtMbSuHB1nJsLRxKREBIH
SY9U039DxMGBHnoS8S94xOHJ+37vtyTzm/zE1sRmJISQpDYlhExZIePG3rQQ
ClJDKOSrHpVFFHOREcIHWUIpZZSzb6+QlVTxkWpqqOXY/TpZTwOfOLU1yiaa
aaGVGGfutcl2OuikixN7t+yhlz4+c2X/IvsZYJAhftuH334HI4wyxjjX7k3I
SaaYZoY/9lk5xzfizHNoX5CLLPGdH/y1L8sEK6yyxi/7uvzJBlmsO+NnZ3rp
vPP0R/1cr/bsi7M/0Mv0J31Hj+r/9e235/V/+qV3Nlw/6Ed6XL/X9/Qh/U5P
6jE9xzu3riv1bP1Gz9V3030v8v7fvwKHCjPW
       "]], Line3DBox[CompressedData["
1:eJwl0UkrxVEYB+CDwkIppZRSysZG+QCSwgJZ2FjYWcl0zfM8z/N4zfNMFvYy
bGx9Ic8/i6ff731P595zu7n1sZrWhBDCGA3JIRTIotQQUhOlXqyn6VV6iZ6u
1+mleoZ+5E6jOVN/0/v1LP1dn9Oz9R99V69wJ8d8rVfqedEdvUrP17/0z5QQ
aj2o3PxrLpTt5rLoe5JCaKJab5YttPLsfky20U4HnezYd8lueuilj34GeHI+
KIcYZoRR4vZjcpwJJpnixn5azjDLHPNc2y/IRZZYZoUP+1W5xjobbLLFp7Pt
6I3sssc+X/ZxecAhRxzzbX8iTznjnIvonv2lvIreEb2RW+6iz3V2Lx94jH4v
93bP8oVXUqhL/P/v/wAz2ENN
       "]]}, {
      Line3DBox[{1617, 2046, 2047, 1931, 2153, 1135, 2152, 1873, 2127, 2549, 
       1802, 1618, 1874, 2349, 1803, 1619, 2309, 2350, 1804, 1620, 2351, 1805,
        1621, 2352, 1806, 1622, 2353, 2249, 2414, 1623, 2354, 1807, 1624, 
       2355, 1808, 1625, 2356, 1809, 1626, 2357, 1810, 1627, 2358, 1811, 1628,
        2344, 2359, 1812, 2154, 2553, 2194, 2223}], 
      Line3DBox[{1629, 500, 518, 516, 1579, 602, 517, 2073, 583, 2072, 1875, 
       2360, 1814, 1630, 2310, 2361, 1815, 1631, 2311, 2362, 1816, 1632, 2363,
        1817, 1633, 2364, 2250, 2415, 1634, 2251, 2416, 1635, 2365, 1818, 
       1636, 2366, 1819, 1637, 2367, 1820, 1638, 2368, 1821, 1639, 2503, 1933,
        2000, 1822, 1988, 2523, 427, 2224}], 
      Line3DBox[{1787, 2107, 2108, 1984, 2071, 2070, 2544, 1786, 2141, 2142, 
       2106, 2151, 1572, 1785, 1928, 2469, 2324, 1784, 1927, 2468, 2323, 1783,
        2322, 2467, 1926, 1782, 2466, 2300, 1781, 2465, 2299, 1780, 2464, 
       2298, 2413, 1779, 2463, 2297, 1778, 2462, 2296, 1777, 2461, 2295, 1776,
        2460, 2294, 1775, 2333, 2459, 2038, 1985, 1774, 2530, 2065, 2066, 
       2237}], Line3DBox[{1801, 2048, 2049, 1986, 2166, 1583, 1800, 2176, 
       2182, 2177, 2165, 2554, 2327, 1799, 1930, 2481, 2326, 1798, 1929, 2480,
        2325, 1797, 2479, 2308, 1796, 2478, 2307, 1795, 2477, 2306, 1794, 
       2476, 2475, 2305, 1793, 2474, 2304, 1792, 2473, 2303, 1791, 2472, 2302,
        1790, 2471, 2301, 1789, 2345, 2470, 2178, 2180, 2179, 1788, 2348, 
       2556, 2236}], 
      Line3DBox[{2203, 2158, 2013, 2057, 2539, 2336, 1692, 1956, 2014, 2438, 
       2329, 1694, 2272, 2439, 1696, 2273, 2440, 1698, 2274, 2441, 1700, 2314,
        2545, 2079, 1897, 1702, 1325, 1953, 1898, 2547, 1704, 2149, 2150, 
       2102, 2442, 2317, 1705, 1900, 2443, 2318, 1707, 2275, 2444, 1709, 2276,
        2445, 1711, 2277, 2446, 1713, 2330, 2531, 2015, 1960, 1715, 2540, 
       2058, 2059, 2016, 2118, 2212}], 
      Line3DBox[{2204, 2081, 2020, 2060, 2541, 2337, 1992, 1844, 2019, 2386, 
       2331, 1714, 1843, 2385, 1712, 1842, 2384, 1710, 1841, 2383, 1708, 1840,
        2382, 1901, 1706, 1839, 2512, 1959, 1899, 2103, 1201, 1958, 2381, 
       2316, 1703, 1838, 2380, 2315, 1701, 1837, 2379, 1699, 1836, 2378, 1697,
        1835, 2377, 1695, 1834, 2533, 2018, 1957, 1991, 1833, 2532, 2041, 
       2017, 2117, 2211}], 
      Line3DBox[{2205, 2085, 2024, 2062, 2061, 2527, 1994, 1855, 2023, 2394, 
       2332, 1727, 1854, 2393, 1726, 1853, 2392, 1725, 1852, 2391, 1724, 1851,
        2548, 2104, 1904, 1723, 1213, 1962, 1903, 2082, 2551, 2279, 2143, 
       2083, 1902, 2494, 1722, 1850, 2390, 2319, 1721, 1849, 2389, 1720, 1848,
        2388, 1719, 1847, 2387, 1718, 1846, 2534, 2022, 1961, 1993, 2535, 
       2278, 2042, 2021, 2119, 2213}], 
      Line3DBox[{2208, 2092, 2091, 2028, 1966, 2063, 2528, 1996, 1864, 2027, 
       1965, 2514, 1737, 1863, 2401, 1736, 1862, 2400, 1735, 1861, 2399, 1908,
        2088, 2146, 1564, 2089, 1907, 2086, 2552, 2145, 2144, 2087, 1906, 
       1734, 2495, 2281, 1905, 2496, 1733, 1860, 2398, 1732, 1859, 2397, 1731,
        1858, 2396, 1730, 1857, 2395, 1729, 2513, 2280, 2026, 1964, 1995, 
       2536, 2044, 2043, 2025, 1963, 2120, 2241}], 
      Line3DBox[{2216, 1978, 2034, 1977, 2520, 2339, 2138, 2137, 2173, 1976, 
       2136, 1975, 2519, 2347, 1759, 2184, 2183, 2555, 1758, 1918, 1349, 1757,
        2501, 1917, 1916, 1756, 2500, 1915, 2095, 1914, 1755, 2499, 1913, 
       1912, 1754, 2451, 2288, 2410, 1753, 1871, 2409, 1752, 1870, 2408, 1751,
        2450, 2287, 1750, 2449, 2286, 1749, 2518, 1974, 2032, 1973, 1748, 
       2338, 2542, 1972, 2030, 1971, 2239}], 
      Line3DBox[{2219, 2156, 2157, 2009, 2054, 2053, 2526, 1678, 1952, 2010, 
       2430, 2328, 1679, 2266, 2431, 1680, 2267, 2432, 1681, 2313, 2433, 1892,
        1682, 1570, 2148, 2078, 1893, 1683, 2546, 2100, 2101, 2099, 1894, 
       2492, 1684, 1895, 1896, 2493, 1685, 2268, 2434, 1686, 2269, 2435, 1687,
        2270, 2436, 1688, 2271, 2437, 1689, 2511, 1954, 2011, 1955, 1690, 
       2538, 2055, 2056, 2012, 2115, 2114, 2228}], 
      Line3DBox[{2225, 2004, 2186, 2050, 2524, 1990, 1829, 2002, 1937, 2505, 
       1651, 1828, 2373, 1650, 1827, 2372, 1649, 1826, 2371, 1648, 2419, 2255,
        1647, 2418, 2254, 1646, 2417, 2253, 2370, 1645, 1825, 1879, 2484, 
       1644, 1824, 1878, 2483, 1643, 1823, 2369, 2312, 1642, 1159, 1877, 1641,
        2504, 2252, 2128, 1934, 2168, 1989, 2341, 2482, 2125, 2170, 1876, 
       2175, 2169, 2248}], 
      Line3DBox[{2226, 1943, 2005, 1942, 2508, 2335, 1663, 1941, 2003, 1940, 
       2507, 1662, 1831, 2375, 1661, 1830, 2374, 1660, 2423, 2259, 1659, 2422,
        2258, 1658, 2421, 2257, 1657, 2487, 1886, 1885, 2488, 1656, 1884, 
       1883, 2486, 1655, 1882, 1881, 2485, 1654, 1880, 1302, 1653, 2420, 2256,
        1652, 2506, 1939, 2129, 1938, 2130, 2131, 2340, 2543, 1936, 2126, 
       1935, 2247}], 
      Line3DBox[{2227, 1951, 2008, 1950, 2052, 2537, 1676, 1949, 2007, 1948, 
       2510, 1675, 1832, 2376, 1674, 2429, 2265, 1673, 2428, 2264, 1672, 2427,
        2263, 1671, 2426, 2262, 1670, 2490, 1891, 1890, 2491, 1669, 1889, 
       2098, 1888, 2489, 2343, 1668, 1887, 1311, 1667, 2425, 2261, 1666, 2424,
        2260, 1665, 2509, 1947, 2132, 1946, 2133, 2134, 2525, 2051, 1945, 
       2006, 1944, 2246}], 
      Line3DBox[{2233, 2097, 2033, 1970, 1512, 1998, 2172, 2171, 2135, 1969, 
       2517, 1747, 1869, 2407, 1746, 1868, 2406, 1745, 1238, 1911, 2093, 2147,
        2498, 2342, 2094, 1910, 2105, 2497, 2285, 1909, 1744, 2448, 2284, 
       2405, 1743, 1867, 2404, 1742, 1866, 2403, 1741, 1865, 2402, 1740, 2447,
        2283, 1739, 2516, 2282, 2031, 1968, 1997, 2334, 2515, 2045, 2029, 
       1967, 2240}], 
      Line3DBox[{2235, 2160, 1925, 2161, 1924, 2069, 2550, 2140, 2139, 2174, 
       1983, 2181, 1982, 2185, 2522, 2346, 1772, 1923, 1355, 1771, 1922, 2458,
        2321, 1770, 2320, 2457, 1921, 1769, 2502, 1920, 1919, 1768, 2456, 
       2293, 1767, 2455, 2292, 2412, 1766, 1872, 2411, 1765, 2454, 2291, 1764,
        2453, 2290, 1763, 2452, 2289, 1762, 2521, 1981, 2036, 1980, 1761, 
       2529, 2064, 2187, 2035, 2238}]}, {
      Line3DBox[{947, 1285, 1136, 2549, 948, 1289, 1528, 583, 974, 1374, 2504,
        1158, 987, 1377, 2506, 1168, 1000, 1380, 2509, 1177, 1012, 2430, 1383,
        1187, 1023, 2438, 1387, 1197, 2533, 1034, 1391, 1208, 2534, 1046, 
       1394, 2513, 1219, 1058, 1397, 2516, 1230, 1071, 1400, 2518, 1242, 1084,
        1403, 2521, 1253, 1097, 2459, 1406, 1264, 1110, 2470, 1585, 1274, 
       1122}], Line3DBox[{949, 1286, 1137, 2349, 950, 1290, 1148, 2360, 975, 
       1295, 1159, 988, 2420, 1169, 1001, 2424, 1178, 1013, 2431, 1188, 1024, 
       2439, 1198, 2377, 1035, 1209, 2387, 1047, 1220, 2395, 1059, 2447, 1231,
        1072, 2449, 1243, 1085, 2452, 1254, 1098, 2460, 1265, 1111, 2471, 
       1275, 1123}], 
      Line3DBox[{951, 1287, 1288, 2350, 952, 1291, 1292, 2361, 976, 1296, 
       1297, 2369, 989, 1302, 1303, 1002, 2425, 1179, 1014, 2432, 1189, 1025, 
       2440, 1199, 2378, 1036, 1210, 2388, 1048, 1221, 2396, 1060, 1232, 2402,
        1073, 2450, 1244, 1086, 2453, 1255, 1099, 2461, 1266, 1112, 2472, 
       1276, 1124}], 
      Line3DBox[{953, 1138, 2351, 954, 1293, 1294, 2362, 977, 1298, 2483, 
       1299, 990, 1304, 2485, 1305, 1003, 1311, 1312, 1015, 2433, 1317, 1318, 
       1026, 2441, 1200, 2379, 1037, 1211, 2389, 1049, 1222, 2397, 1061, 1233,
        2403, 1074, 1245, 2408, 1087, 2454, 1256, 1100, 2462, 1267, 1113, 
       2473, 1277, 1125}], 
      Line3DBox[{955, 1139, 2352, 956, 1149, 2363, 978, 1300, 2484, 1301, 991,
        1306, 2486, 1307, 1538, 1568, 1569, 2489, 1539, 1313, 1530, 1570, 
       1571, 1540, 1319, 1532, 2545, 1323, 1324, 2380, 1038, 1330, 1331, 2390,
        1050, 1223, 2398, 1062, 1234, 2404, 1075, 1246, 2409, 1088, 1257, 
       2411, 1101, 2463, 1268, 1114, 2474, 1278, 1126}], 
      Line3DBox[{957, 1140, 2353, 959, 1150, 2364, 979, 1160, 2370, 992, 1308,
        2488, 1310, 1004, 1314, 2491, 1529, 1316, 1541, 1542, 2546, 1543, 
       1531, 1321, 1384, 1325, 1327, 2381, 1388, 1332, 2494, 1334, 1534, 1337,
        2496, 1339, 1063, 1235, 2405, 1076, 1247, 2410, 1089, 1258, 2412, 
       1102, 1269, 2413, 1115, 2475, 1279, 1127}], 
      Line3DBox[{961, 1142, 2354, 962, 2416, 1152, 981, 2418, 1162, 994, 2421,
        1171, 1006, 2426, 1181, 1017, 1322, 2493, 1191, 1028, 2442, 1328, 
       1202, 2512, 1040, 1335, 1213, 1052, 1340, 1535, 1563, 2552, 1225, 1065,
        1343, 1545, 2497, 1237, 1078, 1346, 2499, 1249, 1091, 2456, 1260, 
       1104, 2465, 1271, 1117, 2477, 1281, 1129}], 
      Line3DBox[{963, 1143, 2355, 964, 1153, 2365, 982, 2419, 1163, 995, 2422,
        1172, 1007, 2427, 1182, 1018, 2434, 1192, 1029, 2443, 1329, 1203, 
       2382, 1041, 1336, 1214, 2548, 1053, 1341, 1536, 1564, 1565, 1066, 1344,
        1537, 2498, 1566, 1567, 1079, 1347, 2500, 1250, 1092, 1351, 2502, 
       1261, 1105, 2466, 1272, 1118, 2478, 1282, 1130}], 
      Line3DBox[{965, 1144, 2356, 966, 1154, 2366, 983, 1164, 2371, 996, 2423,
        1173, 1008, 2428, 1183, 1019, 2435, 1193, 1030, 2444, 1204, 2383, 
       1042, 1215, 2391, 1054, 1342, 1226, 2399, 1067, 1345, 1238, 1080, 1348,
        2501, 1251, 1093, 2457, 1352, 1262, 1106, 2467, 1357, 1273, 1119, 
       2479, 1283, 1131}], 
      Line3DBox[{967, 1145, 2357, 968, 1155, 2367, 984, 1165, 2372, 997, 1174,
        2374, 1009, 2429, 1184, 1020, 2436, 1194, 1031, 2445, 1205, 2384, 
       1043, 1216, 2392, 1055, 1227, 2400, 1068, 1239, 2406, 1081, 1349, 1350,
        1094, 2458, 1353, 1354, 1107, 2468, 1358, 1359, 1120, 2480, 1363, 
       1364, 1132}], 
      Line3DBox[{969, 1146, 2358, 970, 1156, 2368, 985, 1166, 2373, 998, 1175,
        2375, 1010, 1185, 2376, 1021, 2437, 1195, 1032, 2446, 1206, 2385, 
       1044, 1217, 2393, 1056, 1228, 2401, 1069, 1240, 2407, 1082, 1597, 2555,
        1598, 1095, 1355, 1356, 1108, 2469, 1360, 1361, 1121, 2481, 1365, 
       1366, 1133}], 
      Line3DBox[{971, 1576, 1577, 2359, 972, 1372, 2503, 1373, 1431, 1375, 
       2505, 1376, 1432, 1378, 2507, 1379, 1434, 1381, 2510, 1382, 1436, 1385,
        2511, 1386, 1438, 2531, 1389, 1390, 2386, 1440, 1392, 1393, 2394, 
       1442, 1395, 2514, 1396, 1444, 1398, 2517, 1399, 1557, 1600, 1601, 2519,
        1599, 1401, 1559, 1595, 1596, 2522, 1594, 1603, 1602, 1546, 1572, 
       1573, 1547, 1362, 1580, 2554, 1367, 1368, 1134}], 
      Line3DBox[{1128, 1280, 2476, 1116, 1270, 2464, 1103, 1259, 2455, 1090, 
       1248, 2451, 1077, 1236, 2448, 1064, 1224, 2495, 1338, 1051, 1212, 2551,
        1562, 1533, 1333, 1039, 1201, 1544, 2547, 1326, 1027, 1190, 2492, 
       1320, 1016, 1180, 2490, 1315, 1005, 1170, 2487, 1309, 993, 1161, 2417, 
       980, 1151, 2415, 960, 1141, 2414, 958}], Line3DBox[CompressedData["
1:eJwV0EsrRAEYxvFXhlIWrh9gNiyUhcvKF1AspCxkZ2NnPoClJkmaJLK2cb8N
Za/YMAssXGoUpsYlMy5byW8W/573+b/vOXVOcjw1PFkVERMYrYlIoK02oh2p
RES2OuKAa9Szcgz15g5M2efsD7km/UhOI1sX0aB3I+3m3s0X36x/y7J9Wq6h
h8u4Kbo51Vv0vP2ZeQbr6OVW3Py4Odcf7C/kLDawavdn985f6leYwya27Qp8
nbzRbzGPLRT5Y74V+cp7kak8gxe7Ez6JZ72ABVzzOzLHd+LV/IYSvyh3ccf3
4cP8yJfkEvYq7+H7UTY/2X3KZexX/gs/gl9+wDcPogtD+AeWNkNE
       "]], 
      Line3DBox[CompressedData["
1:eJwVz0krhWEYBuDXwikL7MTSVhlWhl9g2Cg/wcqKvcjQSZIk2UiSxD8wT4ej
DJnKkOGUocxHKRzZub7F1f08z91X71fc3NbUmhVCaKEnO4TqWAg1lFFBOd3u
C5SaF2UXvxTZP3NCyJg7mSPfbV528ENGX+j2bW4n11xFHqP2S31aFtjf5SzP
VNpf5AhPfPHIDPfc+e5BDkczt0xzE826lBzimium+HA/lxcMckba7VROcswJ
AxzxpjuUE+yxTz+7vOp25DhJtunjwH1LbjLGBim3hIyzzhp1/m8leq9uVfay
zBK1unr+dA2yhEb+ARybR7E=
       "]]}, {}, {}}},
   VertexNormals->CompressedData["
1:eJzsvGdQVdvSLkzGgEgQRCUpooCAgEgSVyuCYkAURJJEEyiigiKiJEFUggEQ
USSD5CySGeScc845LUAkqMgd07P3qbrnu75V+1Z999fxD7W6ZvXs0f3000/P
tZw7jW+rXaWioKD4uZ6Cghr/fdsncr2l0grEh/Xvl8+S4aav58gwYwK8EP5E
k3quFQ6dTVRdKJwEesFbCoafmkF1S/HChpBeYJOv87M6NQYV935kiHJ1gm+W
N9OZwEGQnCpg5Vw3BFvuDcrkN/dA3caXUok/RoDXVS0ghq0HLrOEfgq50Qex
vjr3RSLGYYPmL4Gfxo0wLFHyLd+2D2SPCtw96TgJSwLt1ZvZC4Cq633Y/tu9
wDr0NoM/cArQFpNF/kBh0r/+doE8a4gDkp0GFgcf9ReN2YjNf+7JNEM7ZORF
Bii9noaUHJ6UDY1l6M2gaPkYVzNUBGVqOLVMw6O8HoNlUi3y85l+0c1QDy/V
SYk9YjPQwFWTmVpbhz5L2p1CfeVQmaUlJp06AxY0+TI1d2qR/VO6nzzu+SDz
7Hs00zUysLvuqgulKkUH/BqZ988lAcX/8d8sBF8aX1tbIyOl6g9XRdbmSa9f
a8g0WSeTtvUkFRtXXiWFOv5UtKibhrPqmqe0oBV+lHTslHKoh7B9U8HxfROg
6qHwUo+iBzwcK54eu9ENTfThvS+ejoD/yRw9G41+GKZsX1/iMwgearV2ohz9
UOi+o2IlYgAkgnuGrE1GIeFD3lgTZwso7s3QMKodgPjE5HMODBPwSIPfatKj
CCxefhhP6OqHIClOX9awSShxPSf7hUeM9K+/fTBna/oy48kUbAoLak5nzkM/
l6riiqc74eSpck8Jymlon5LYoHitEgnSHrwdd7YVdHrz1gtdmQagKx/X2laP
5DY020BUAxjnoyXp9mnwsjr36opyA9okN6bqvbsKEs73KOTbzEC209SQH209
4s82eM1IUQiOpPBaqTNk2HrtezFFexlax3JQZt4g5Y95FtD8/jvPpuXNGiJr
A6RLcukCTdYhJLrZ3ejzuVa0JeLkJQLPqZfDzxB4dmJUepAkZkDaWDSbpTY3
+dfnXtBUEN+muK4OWhdkXDrcx8Dh9ejMvuEBqPDZ5s2j0w3CygExcwcH4avO
5KVDS0NAMToQYL95CIYui101UmwHw21H2NXshkFdXvqwX/8ojBwp6WJ7WQqa
u6e2ylsPgdj7kAp+6QngOc9UXa0tQfrX3wGgpNhvQeBfxm62EuMfhbkqBxP4
388fT6FJmoK3MmUsZNsalHt8aWTHbDtc5A/29K6agj1lrWxn2xvQWsqa9E7P
JjhnJ3FV9/o0vE+x6pmjakKCiqtfq6trgEYya0Pr/hnY5uQhou3WgLa98Qjd
mlIEzhaZOy/tI8P73OQzDb8qUF98BYpiSP1jnv9kz31ufqMhbRCNX41ZPfNo
FPrFYxMUVRuAgSZ39KBDPZpN8I4i8HyfM82bwPNgPI9kxnE90lumyz2tuuOg
wMNm/ch5EAr8SSahP2ohP8RSKn9mCB4f26Ryrm0EnJIjS8uP9MA7Chudfd5d
8LP7Ypmt6hjY2HA9P+87BKwxmb7pbJVw47Mk2fHFKJxc/hK6g23s73gdmPKY
tK1ZhuHeU8vzBP6lrb/fw/hHqMVnjMB/6fEcOTrRSTi/+dLaIlc9UhpIn6fj
6Yaj7KfebFybBO57fMrDs01ob3LgnU8dLVAvXj5sVDcF9x8V7Evf3IJ6FfJI
Vd/r4POqtQC5ehrywwT6KbSaUDivGevJ1BI4d7wCFVOQ4UW1ZOyFF9Xo7Vb7
D0P0af84z5MOyyEndccQrMXrnbg4CNRBz/UH99bg/O+owvyMtrjXhBP8vF3w
YzHBz+WGTEPH1tUhR5MYNwLPzbUcXwk8b+X/eGsqyYhUWRMjrxIwDDxdNqPD
70ZBPkmLRtO7DjyvbZMZUusF3s2bOhTCJyCy9L1d0eleiEoYeXuupwYyFTL7
5RonQH80TlO5cejfeW5nbvdqOj0GQrZrv/FfVnN0GOMfPdC4xk7gv4LL4gHB
/+pnAnZj/kcHNGu+EvxPuW/4nWP/BDhkXVU9cL8V0U+rbqp/3w6cOxXi/Kin
4Hux5n0dpzZ0rc9vS1d3AwxP1/7YenoaLlxX531u14ISU9k3Vu0oBw4VXlHl
shlgfGq1o/VUHbpK4XtfzyTjH+d5tNPide7iBLpxa3vPLsY+EHtnkJC8vhzS
h/lyuwuHUEtRfHGawjDkVyjqnchqBX6B/QaYn5GCtcAowc8vdupeIfj50467
8yE/apEohc8hAs/mnyPUCDxXFtaRlw4bkbRcbR32SveBtdlne22fSRiO/E79
Q6kebNgHyt6sr4fYw6c6X3ycBpncH4Y5eb3/zrP4+76B8LJJuKZw2JXAf6vz
gBvGP8o3Upoh8N+tPDJK8L/sQOog5n90Ve62OsH/i0hxavHUOJTOSUY4Pe5A
C+eG57+NdkGKZ5UK5egE3GJ+rvzZqhOZPAuSkuFrhpqz7z6WvMP88+iYTe3W
dnSIcafsVaoq2A8BT089moFnE9T7dPY0oHX17mcmVbL/cZ7dA6oNl22nELNG
5Cx5dyd45g5KGAsVAxJ/shRPP4Y0qDhFuiwHgGPGurrXtwnesb+hwnoD2Za+
4iT0Bu3dJCVCb1AxhJlgfkYlzeIpBD+/3iZ2leDnt5WJ7Re965D79vnfePal
vdNH4Hnne5ql5Dx9Up7da9qYpPq/Ps/A+e91g/Rv66HT9GdvdRGJ9K+/M9Am
f8WewL9moeILjH+EKq8PEPi3HOQPIfh/r+0zY8z/iG/oJyvB/9fNnxwm9E+1
XaA31j+ollcrmNA/QyktXK/Pj0MXk+ZnQZpepEjF+UistxXu9lowbfSbBMrb
LV7xx7rQ9SsVXwLda6E+78LCDOMMvPQNlza614RMW6W/M46gf5znhm1MTQ/v
TCO1u3lyqgatQP9Y/PBd2QKwe9dtxCg8gSi2yrovsvbBFn3G9+rz9bBtgKx/
i3oULQ6kfy0M6IemZ3d0rHk6Ic+U/mexzyCi/VbkTOgN8W0CjYTe0Ly+PxTz
M5JJ7zUg+PldxrYGgp8bV5irvyvVo8wrfNUEngMfJwwQeP65RvwzIP2N5399
JoPHmMFGAv/VWx/m4+sRJdWJ3/gXdjNqIPif6cVGdewfua4XKyX8Z126y0To
H9ryrTY4HvTikGMpEU+sqrcFjh9CHT8O4vhRU2PoUSJ+u9knlvi8MOXaYYXP
i46tJtsR52WWpxzG+QHBlIXZswatqHFTHyWRn3+aZyEuw1FcL7R60fYhrhf8
YqS6shnXS3QLCyWuL6J69LYA1xcqdd6MEPVtSLmwGeMBBeawN2A8wMl7lJ4E
HhxDA4QxftBorkgsoZ8jP0vEE/i5bGnthfGGHrvZmxN6I1V9HzeBt7alNxcx
PtEh9qnf/MxTf22awOdmtalojGe0bQvXGMZz7r/+zoC7tr2MC5Mm6f6haAaM
f7R519o3Av91r19tIPifbf9Radwv6O4ujXaiXzS3+4QQ+iekcGsU7i/EUiKo
Q/RX/M6A7YT+l5Yu2oT7EYlJTooS/bgp9SBTAv0YxK55b8H9i/oEOZKJ/qUa
MbTG/Q4qP7I+4H5H+TBENsL9/k/z3F28bIP5B7lQa5hi/gEPiZVogn/Ub316
g/kKyXmdDMJ8BQ/ue14m+KqlY/QY5jfkMzmmj/kNlhcnThP8Nt5Y2YP5EGVc
iczDfAis9pkbFjEfBlYadGH+RJ3B2V8J/awjwqxH8OfAO8vHmG+Rbtvn33qj
oth0heDbVEYOaczP6G88b3nSNkPwc9pmciOB/3k5vyoCz/lNBf0EnmtYpRy1
fXRJBbembTH/o399ngTJgwsWhP4Z5v95EM8LxNvleoaYF98SrL0J/e/htb4b
zxcUyT2iQ8yX44GmXXgeAd1r2wQ8j9CydasCMY/es8ck4vkFm7J3JuD5hVyO
8lwj5tc/zfNaUhE/nqdo48bTanieQk7+tkpinm6yGZnD8xfJ+N9RxvMXNN5c
kiTmr7/bUCie1ygkUO41ntcQd0ZFkJjXbufmX+L5juoluI3xfIc70rk7ifn+
ebT1NtYDSOPHwD5iH/xFtlsl9MCrymlJrB+QiI3DLKGf22f38RL6IUgn9iTW
G//Oc+XVjkBCb8Q8KdUg8O9F9TKE4OcdyhlTBP6DL1G0Efx/Oov1GIHnrRsy
ugk8C3hpG/Xa6pGq/qV/cJ7/pX++2DzcQ+j/Kc0uZ6yXUPSRzmlCL6EaTraN
eP+N5Gf3xvoK7T41m0Doqx53wTqsxyDwuZIw1mPo+PJDZkKP/dM801WupmN9
iGTuqG3WeFEN8hRlo4Q+NDFR34n1JHreuJWSUqsJ5O8ySxN60sPiWw/Wn0jD
W0AB609Qdl1VJfRnOYv5c6xXUT1tjyHWqxBz3vApoVdftx+WxPoWUb+NYlji
qoeRk4LU9FjfVuYvnsJ6GFl1lf3eB2eeTc4RethJON0P6+d/55ly/oAxoZ99
5UpsCfxnmmqFEHrj7tqrJQL/uwJGIwj+36HyTp/gZzFdqnqCn3lT9qwS+ueC
EzehfxCrCv9v/fMf+h/9rf/9vvQdIvbfpZNJAXhfQNFvIlyJfaGw53Mk3i/g
yBJPHd4v0DrFTR7EfvFP8xx2fmYH3neQWHF0FN53oMBbeV003nd0XpJo8X6E
6tZElPF+BM7hgkXEfsR8/JM+3qfQ6SNMy3ifgvK+B2w1eJ8a6xp3xfsXKm9Z
EMP7F7gp6J0i9q+mJtqfF0lTSMzTcTfe16BpacMisa/litWZ4f0Omdzf3008
31BQe59E7HcP3rQV4n3w33m2ky5sIfbBybwTBwn8d7L7jxD6WYXh4W/8d9zO
8iH4Pzes5SahN6y5x3YQ/B/0ivcBoX9I52MSCX5OcjY3JvhZ7L3WHKH/31We
dSXwTOHAME/g+UvCpRM9bwz/3n/R3/vvkSoLZeL5jypJ8Rjel5Fx/S5ZYl9u
Pvnz93zuPav0PrCoJ9c9RbWdbtKf9Kc8x7e7VOD9Hd1XE+KlbC8DzdY8G2J/
7y1MPIz3fdSWd4DyI209SF2YTSD2fctHIl+l26dRbePmkCvKDRAxW2hGPB+g
jJmnFboyjcraxb5qbasHXgUxV+J5gruEySsJymm0/+Iwh+K1Shh5kvqIeP5A
89XSNePJFOLvkO5JZ86Dl8eysonnFUng6MUaNvnvPGcFHjxKPN/w9Ek7TeBf
Ys3/PrEPytWNzhL4f60S0Uvw/7r2fbOEfm5MW6dD8H+AaxdlCaF/NqU7Enqj
q72xltAb+ZeU7xL6v9GnfZDg597uFUOCn3erD1FgPKM8D+pPBJ5Hoxo9CTwb
dxz6/fznw0Y2JYu6aWRzt/0k8fxHfe/c7zyfvixuF1g0k7vdnSWXbjLuj3k+
xLUxgukaGYX58WwPoyqFiN00qsTzqPclLsLSqTPITPzQ1Zo7tWC48cxWXvd8
oKUQiO0Rm0HeSqTq1No6WFrtvUY871K9Hqru1DKNMlRFry6TauGt8k4f4vlY
aP1WP6XX02jdrZtVGxrLQE8gvZl4nmY/es8OyU6jbw/q1F40ZoPjz70exPO3
PT56X/gDp/6dZ9UzJ6n3BHaB9Pbz5gT+C5/1/n6+YRzYGE/gP6x08i7B/ybP
eYWJfbDssfh3gv+H470lCP2zzqw7lNDPp9Wjogj94ysVy0Do/45rQuyE3ljq
9pEn9EYuPfs0sf/Ci3R/gp/hCWc2wc8LT0XXiOc/OyKizhF4fqJ9/hiB51NO
9E0rEnbQcyjlR+IsGR1x+L6thjEBhpmaT4n8vEOap0qX5QycgeEQl/bv3g3A
nkB7VMOsEeic9m6s95qEZ+v3dRpSd4C2ohzbab4eOB912z724yjE/tr3cWGu
B9jOG1itcxqE88GFThH5A0DPrBERwdIPBW8yLDY96UPvki512hyagCIOJpFj
LbXgtrph+MWEEUlB00dDaW4KmGc5B6lUOsF4g0nUnEMd0C96iUp2jcPdvXTU
XPN9cDtUSKJREuuxr4tiLozD4P3paGe00CDw8vm6GlQMwsRrSc0X23uA5+3M
+bbdQ5DhNlAaGTCGIjxS1GNfDUKC0q4er5xSYBm6GncnSZ80IElzd7ZwAvL1
nEhLL/rhUNILH8vKWuCVWKQ9OjUCjCqDzM7dQ8BpPkQWyu6Gh9fJF7gX+2DE
iv0Ua8oIlEc0u1trDcH8druU52mNwBWnYegSPgI20Zx0M1M6JHGzy195okfh
bdYgjZbrMBiE6to/PFwHmns0DNdcBoAveaHOs3IMznJcPmRW0wP0G4tXNl1p
gawnxpfz08bB9FJeSSvWOevvNilHvssCPpeQCeHtY3CL+4WKDa0hKaJymcFu
7yD0X+5U1gvB+62CiOOO+TqgMe66zRHSBjb1S0JbT0+B1bGm77+Ce0GeW0/N
zAXB0fJMc98XeO+e+XYOx4Mi0lYuE/GcyG9qJuJx47KKEtLUI8n6n6S0c2v/
6/M0tJkIMIviObUhn6Vj6k4+sFTEypyznoHPbR/XCP9vM2tuYv9o1/sRM8I/
ufm7Eo4HBcloWxHxTJjflCDikTcpiLscZ0BKd4g+37qz4K/PZBAa2ExN+Fe6
crAT+0e/XkTKEf4LY9WPEPnx6kpYxvlBPbt3GxP52dw3zYjtiCfOiZoR5+1h
rZc5YbdPoWoQwfwz1CdXR8RJt49DgfATryD5+76MzfuN8H3Rvz6T/zNv6O+8
PbhzsB6fCw3nFxsQeeM9dNeGOFfihsx6wr9boGgvEWdC1PujhH8Jr7xom4vG
JM7v3D9s3drRufTqaCJvvgfBmaj7I4ZZI5xnxJC1UEPk+T/8o7/9F0ucUCHy
xiz04Xc8z3wqf+ftP+qO/q77uvpNaRgnSNWQQgvjBK0THVwicOJ2r4eVyE+M
nTkVzg/yv6txi8gPn2O7BlH3Sn/vq0Q8YhVNjUQ8Hvm3aQjcnsnzW8C4Ra0f
3KkJ3B6xpnfEOEebrxzNwjhH5qQjpgTO+cIqG3FfIDPKfbq4L1BmTvBZoi/q
vt0m4T5CFy35NuA+QkLeiWxEH8V4SpeKO1wi8fjp3sF9h+ijnIHoO2V2Z66o
gDF4Ms8yF/NqEAlmPL9K9Gnte5MnuK9R5TEVPdzXSF4xWZPo65JF2e2YBxCX
zKIk5gH08uDPXoIHYrTqnmLeQPO/3CUwb6Di90G0BG94+Tz8zTO8780JnkFZ
D4p/88wTMyky5iX4Ih/khXkJ1dBQtChgXqJ2Nr+DeQw9OCHignkMab+xjiF4
TDYihgbzHkJ9O50w7yFTVppggvesa74LYJ5ESxOFjJgn0eXUmm6CJwOpd2lQ
t/6bV9HfvKrpJRUcZ9kApSmzs/Jq08BAufHbj4p6+GRxSwjb0dLTTVSHsZ32
+q01wu5oEf77Of/pVzpPRdao4EXIY80m64I/zsc/2ee+n0uYf1OGBm/Fn3RS
mAZn5z7t2LoWqFFdmBGzHEbuX1gYIGMEjnJvU+f2roR7u6R0bxTPwDZxoYti
JbWI2ez559rlnD/6r8l3oCHy8JWtl5WYF23rrgwSeah3PXDlMNbnqWxsvnWR
3WDSq2X5dC0fNnHWF7U8m4Exin6p5ov1yK7dlHGzbt4f/R8P9ZM8K96P9K8q
pG42HYNjLLrbP9K1gpRmnli31Az4X5w8P8vUiDbdP+fJ/jMfutSi+TXekKGa
44d2KlMRUkjyeiyqEwkCnor54x7TSHRfXJX+o1aYeqCTkWafDcssWexmO0aQ
lVGr2NjUELRYLPNuzmmE/e+EswrLpyF9q+XKB/5mtOZpEug6XwjbN84fp7Em
gy11AZ2XbAkq+ZWttG8lGhIrimTu6M8gXi7PhVCVRhBX82+4fSsNgmmZnBiE
x9HdQa7ypJ5+0NdJ6JDqrIOLp0qttKkLwP5+aWb413zY+YGLL/ESGQrSuxfe
S0wDRbx4gUZiK5pqaHp4SasEOnbe30arQYbY+32blobKUNBkzr03UvHw2veX
q3jrDBoTdmRZ06gDmbPnWOwaU+CszbXY6G2TaOjCjK9YWQ/YbAgXlFlfDXwp
d6e0qAvQ6Wevc4j7ntL+sZe473/Eg/6O53vxdM5FnSnIKwrq0mnpQF4DEXlR
58rhwqPwY2W7yCCg3qZXrFSFfnJ/kmcRSILQdanS2I4kxlW4S5Sq4KZeTjJh
D8pTjsd+EG9VKotuSwcsfoz5Svj5j3jQ3/FkvpzOw/GDa3ylHo4f7WXunpPG
8fdPnfDD54WOh6XBvzTq0GsmKjdbfN7BMQ4mnB8U0muTifMDK0Myxz1xfqx7
hMdxPtHY1+ZZnE8IVbOKJPJpeMsgANcFrD+FR+G6IH4WihyiLkab3qviOgLd
+NAdXEektuwtSdTRY+8LwHVHYusfBuG6g8mj0xTCuO7rxcaSME6QeV8qnx9/
M1A1BJYTOLlLaXsI4wrUN7AyY1whWyNKagJX71HSAMYhCG4xl8A4RCQ4R0Hg
sJIujAfjFglsbx/CuAUhJi7+/Ri3xnPGAhjnSJXmsy3GObQ42GUQOE/2CDLE
fQFFJcN+uC9QZ5o5FdEXaSFnfXHfQQDH9GBtZDdy2UBHR/TdKd2VsfKICbBV
mD9vNNeHKm49Y2J9XfTHvnuVOZWL+xRV72DTwn0K8VLvxIk+ZX03dZXQhzmV
LbQE77k67G0h+j2P7Udbs3gf0D8vn+v+Mo5OyJtenmNogpM/EnTELYfByf5r
PCljBJ16u2WAC/PMn+57XzVVA/MP6vGY9MP8A0kjFxYJ/uGwfvbp65sycDx0
k4R5DIXocZwneEzo4yRrPOZV3dM3+jCvomv91JMEf/5TnlT2L/q9j0hbsh0P
LPqVy2nm9IxuMock2tT6keDnAwZec4T/M5PG3/4n/9IbVz7VyJNBeV3Uppq+
cvSG/lNFmMhnqOOd8cb5QfTWq+w9X8bh272bDkR+so8vfsJ1QbtjVhNxXYB1
KdKZqEuj1yOSw1Yy9D02TBs8WIVu/ijXkl5LhTfV3CmfDUaQRevxG4XnhiEm
9J5wb0AdNCz5lXwYmYEon+TITas1SGHLns85gumQnRbTo9M6jvqK5jmy3vaD
f+tFLWOzSqjwrmwZDsN9lBcWrSNcjxTF9Sg2lWVCOlsVGm2YRNFG7V3fLLuh
xv1GqdxSCWyuM7X9dnIGjMS+NZXINyI/+x9S3BS5cOpFrloZzTTa8EXBa2Vn
O1DzVZu1+RaCSLbwfr/SadDdU8A81tCMFOZl32nT5INTcTkPtqMSuigdbAd7
MZY6ws5zpPAa9gPmxyiPYT9oYVlGlPATudfvLr4vWhxwZCuVbwR7l3A/4r4f
bNZ34TjhV3WLPY4TTd/f6UjEmXDHrBqfC21yTh3C54JdXhM6xLnm7jym020d
B/3mmeHMt/0oS+3eRiIP4etbcnHeUKJ63hbG1RqwOMhAl4vz1pmfNYrzDNa+
D+VwnhHZ0ICOyPNYpLAMrguSyJ3dOnSwCoTN2MKIurB2BgXjuiOH7ceu47oD
T6MTUziu+z/FYc/uwvmwyBkYXx4SkHxbh2y99Q82Kv/5exANg2urcsYzsHRU
anlZsAEZ80ovyuzKBzeLlHJzPzLMqtJGSu8qREamC/bZMhGQGfrVQnJ8Cj39
tMfB60gHjDa9emXRhf2/6LZwo5kBgwZDH3PGJiTSr/L9wGQBjGmfSw97SoaA
rluvD28tRhYPfMjVvlEgdFlxowntDPq6HM3ffKAZNtO/MnbMyoCzuYpFGxtG
UeSr/ecd1AfBiHZgfZ9cA3ClchZ+cJ4GYVLy6d06LWht9GqbF1sxsLStLlOY
kMHgqUD/iceliLxN+2ODQyw0zIbt0gyZQQHaLOyhKfXQYfUQNT9Khev3M0pu
kCbQFknN2Gev+oBksULJg/f4si7RDW/qpkBC9ryFkEg7+swXo/IOlUJuRXz+
KRIZ8vrdFd7YVCCLlE9bbjAnQnngSAkLJRmFtwx/e3W+BkI/qq9MXk0Gd+uO
IouKSRR+areeTnIX1G2Wdo5ixrrofVYLtkM+x+Pd2I4uviw+S9hfxOc2YT+w
c9xmD/aDLpfcf0T4SXPZlobvi45fdlzB9wV3jVgn4r4Mzbt/vq6bQqVtQ59w
nOCjdsyeiHNMM7IXnws+lNO443OhoeNrRdz4XObNbgdxHiC16GhASEo96ni3
WZTIA3OL2yzOG2rwn3JRflwKXfWSRo04bz6VO9JxntGhF6RHOM/AVgq03jjP
IgePD+G6wLLOhBiuC4q7eneyF9cla4ViD64jtPfx+TUdaEatlo/SHXAdpXyr
k3DdkWJsJjdpazGUOAoH1eC6y1gw3cA4QTv7bPIxTqCIZXGXJMYJv8CVjxhX
IL061uZ5pAM1Q1XxXYyrqgS5IoxDxHDCUlhmVyGcDYnjzcE43BoXuIhxi2oU
xzlXBBsg0qxjuyzG7Z9wrpQ6OoX7Ah1eVj+D+wJ+uUlb/0998Sd7Zt4Dq6yV
cVT33mXXoU/98MpJ8q7j2zKg4+kYvCQ4hY6deOGYltIFlO/82fVXC4F9nSgV
r9E0Ws/yyl9/oRWCGo6SZuLzgOkyS95lzhl03VF+ze1+ExzgD9WwxHO8vqKT
84z3DNp30K1RoLYepr+KLzrVpMM5N2O2/cMzSGtYrGrpcS3Ux93L5ppJhe7p
SC1ObjJiLz0Z2idWBZ5Sr/RIISmgox+S8u4EGQ2NPuakdiwH9vd36oQLk8B2
h+Ojz9fIiGq8c9LleCl8POOg2XkwES7LTwx/tCMjhdStx+WuFQPn7p6Y5Jo4
kOi6K7vy/hHpW18f5TEGMgoT6HHKwDz3H3b42648ZBIrptKFFg98Jfe3TcJV
GvqtbZWVcDXyRVTXQBVKBs2FkjvTMF9uKL3BsQnKdz7cvKQwgPoqLxSO1Y3B
2bLVcRfleujqWGeM7eBw/5gHtqN3p98WEvZHwU293QNVEHXxySD2g75pFAoR
fs784nwqodIFRx502eH7IgEp70+t+L6r5W9/EXvQ4fwNxSJrLFBi+Phtk3UD
yaV/cgKfF6w28XfJXitGTu0xu4jzMnQrG5pakiHhAlPNgzMlaPnpivD1zQlg
zLjqgPMGr7cqP8F5QyfeLW8i8jZrX9YkpUWG0bwHnNSaZUjxA69z8NdEaDni
mYnzD+vH3odQOZajkLIwOyL/0prfT5pIkuFF5BZBkbIKZOIdPkQfkQyDvZ77
U+QnEZ24rVlmRi981wztNOcogWD9akNcX5gKX8+H64uubjpMQ9RXaHvlekoa
Mtgf8evVyatGcptkjK3SP8OPa2qcJzqmkNylcQ1vvg64PfXm5lXJAlhz8+fB
+AFp0wV5jB/kGZWsReDnjHSSnnXeDLgPVEXKptUhn+h43XfKaTDxieFKBdal
FDZOZlZbWiAqhOPulfxc2LVQIojxCUU3vJ0xPhEpdKMLgU+ucye6X2Hdq0TJ
9lOAoRG9Xi8+zvw8E5QjXWqwHW1WqFMVZGiE4oqdhizYftp+vg7jH5wzGj9h
/KNpJ6o2C4x//m/7rfF9wWn83UZ8X5SmyDFxGd/38GE5NRwnSlrYsIDjBH1m
2yIiTtuQk9txf8GToo4DuL8Q69mti9O4v5o/mMrgPIAs55lRL74OZC36nJvI
w1mHJAqcN2Ro9P2abl41HOmwzyPyVmoURasnOAXLreIbcf+iCF6JIj3cvxul
N2vjukBVwc7pjIxetDbU5UzU5SfLkAKuIxpA1wNwHWGBx092Ha7jJ9P3kZgf
QJw+rE/uUz/aWubATvDDAfulGowTJBM35IJxAhd3HKgncKL6RUIX4w2J992W
tD5TAoP6nlkE3v7EP0L3WX7rTBPqG80BRYxo/zDzdrrJapJcwio1X2gNTBoY
Zsryz4BtGIMp59Y/f7+2u4XBJFlmDJmde30qHw2CwmeTGbknlWAy66i5LW0M
EkPohk7FDCDdCMmLbax14OrHU9l2ZwKonglu2l7Zh3Rjstgui1VAUbrbu340
DA4TeupZQiNoz8jkGdO+GvhgVPDQdLQDCrdbJry9OYnyFqksWjga/xjP511v
fu4KrUF7aRuI+JHzFrvf8TPaNioY473y+y6OD7uiJ+HwS5bTh/p74ORPtWyn
nUVofIZen+ntFEzfTKxbt9jxj/n8/2+75H4tZcGaNtAKCtngp1oHcVeGxtS1
p6Am+Kd1l0k+1OS9j0s/2w6KFDY5eszTf/TTnu0z86iKDAOhrV71tVnoysPS
lcoCP1ATZyz+Voj9fHNqbHxaDxPWDV8c7s2AXsk4G/aPxJIkown/Fz2n8v8n
/zV3ZKwXc8ng5JLaZyuP0JM11ppukcA/Xm/voWZ2KQbjkHGA/XpNPtKMvlDM
VBIMHqfC57duL/j39xpn0kY8o+PwPs7QnBayvR3Ft4fubonLA3MNqXO2fH+O
R5A92va2BxmyGmlDHJOLkKaAeUVdZBjsn/FWwefFe2NTMz4vWlZvyyTOy6Ev
mU74l759nh37R/eWw377vzUdHnSJOh8yT6VFqrH0odMUmXKJmpMQVdtNR+Tn
pURmIs4POmLE/D/mJ+uLE/2zS2QYrF/yTk0oQ7yV6h/2hEWC3l0eKewfhZ7+
GUH433z7DBD+fUzP2DgatKGCQaGtXwJaUX31vptCOyf/rMM5uDKKMJ9bdLBe
PPm0BnVNLmxYs4qH2msrv/u9WRs2sjkN5dJlNrjSzIeSTLQdpnoejEC6gIj1
sx0jSDYjxFeEuQSUZ7/9fu73w6TeWv7COClLYnR0e3AkKYw3g/bZkwlUss0w
LP1yP+htDD/hrZsPt0WzI3CcsHr9GhuOEyhrtY2IOP8jb/B33v7jvPD3eUlt
cWScfwj74r+ZqO8FT7Iikf+ak08UBK7j/V90RuvhaDn88vQ/T7djBtK2Sy8S
11tFuVMQ9VoVZP59va6FigHH9gI4oEz7KjoOcv/1lwyMj488I/rFK/kg0S9o
1xb63/0S7fuMR2GbPumQ4ePca1nN6F+fZ0Db7jEX7js0GyLIjvsOXVzxmyX6
7pFu7S3nnUXAUhGqiXkDoS1RFQRv8Kvc6zOiLkChnvz+mGdQTq3NWYJnLE9/
ccN5A10uxqG0y/0o6Iv0cy+ct2e3o/fi/KNHJ5wln+8YAU+PkxdEcf4FznLb
1Gt2oPd9i6+OjE0CnQb/BTVyHdxTP1FpMtqBNu192Yz5EKY1ltwJPgwZOXx+
brQY9YeEe3J9m4Ln645cYZhtA8cO7cFo0iBy6+il3vhgDGQf68oKJlX/Y/5J
fUapopc9g+Tfqbyix/qJ7g0IzsKff4f/T+1RvlEc3tJk5GfSVe6jUgn35+wF
a47E/GM/eyWGn0hYk1G1gf/wL+cSvH96hFnafILT6cq+qiVYR51dLzxhloPs
DrLt5TPw/6Of+euhz7cEkNHT0ZYlKv5C+D4nfZiBMxRuIl4bni9k+ASBPAJh
eYgU1WKh9zHoj35Ym7db4OvR8c5SWsGwPBDf8klHH1+ft8vUC/sHa3L1JCV/
IVqN7pbYiP3/yc+R65NvcPxoW9m5ikmzHLjgOpu3G8c/eCv1DT4vOIaMxK06
lyDTKEozC3zef5o3r7BXojj/8Jg959xblUqkKsGcVPV/kf8/2W+c4b6D8QNz
5/aE0SnXo29XXPA2nAQz8nwHfc7NwK6Z29LRA43oA5N/kk57Cjy9qRCGdQWs
eH9eh3UF8vKI9SR0xT+9b8YXmZVkimYwUouPNy+cRO6nwgKqxlrBaib67Rau
LqhYr0gOKptA8mm6HCYDTXAv20QrhjQIiaq+CRsejKFU7icNAv8X/cIpOXW/
QRPriEBHbdy/qDng5gGif/90/fvFQRWsfxD/0ykvrH8gf9E+nNA/vvdj6XB+
0J5LEgoxA43wYqtili7OT8Szu5+CrkwiJlHHI5cje2Hl+4XN3w4WAj9NmCTW
Xchz49KG0zEDwHMi5wGhu/5p/P4lfgoEv5Wf1NYmdJGxqk0lwW+/JANZZEsu
k6olFY/wXJmGc1ovpcJV2+HEEblHKRPpqPyYqeTB2GmQ3Hv5NTtfKyRarLji
/CNPib15OP9w9fuFeCL/XLclN+H8o/DkY4zBZROQV7henMg/B3eK0qpPJ9pv
8WnagmsC9p+eQaSQNni876H5JbzfXctau0jDNwZilUyux8qb4DC33+ubu4eR
tIjeBnWjEQhlSj94zbIePvY6KU3PDKLJzsR3YmEjsP9a9ISZbjMcOmolyLV1
FE3b7vkB2kNQz1H2jculHmBZq751zzgS5496EWU+ALqudY4JuVWgHFp4G/uB
hwq0D7Ef9M3mVw3hB7Kfi2T+GAKhiaBDiWIj6EBTRwAnZyMY7xxfobkzCkE3
5aVczwwhXvk9ZdMRtaBdbx2BzwVHfV3a8LkQoyhlLHGur6E5Vxy9umHSQTPB
lmkC9fywlZK3aIEggVA+N9YBePV8g+zmD2OIVJpX2i3aCPdH73POjxaDjPlN
V8zziI+6RY/g+SeGqY/v0DTAMNfBhDy/KVQQZxQVdrblj/W91zAUYXLPkMRN
LWIkbjUFPp7rGDOPdMPxC2c11LjrYWbKRTN5tgnkDckhThT/n/kIf8/HvIbr
q7mv6hHz+e0CU25JYH6DPf9p0gzoUwhtxPMajXznPo/nNfoavE6HmNcpcXsX
lO0vkZz82A3lubrRvz5PASdvMb1JYR2iZnw1RLetC2WSbXe9c5iEUxsThWLb
x5DWz4rToa8GodOoKdzGpRAKoioO4ethZTq+DV8PwWzvuYjr/8M//O1fJppO
Cr2qh8ex6xRwnMi3LD+diHMy3JIHnxe5Wny4hM+L3h5YiiLOK8xcYm2ub0Tq
4/5piPODXraX/M7PLTvQIJ7/+x/ep0B8j7lSmKNOPP9XjG/+1fHdlPSWIv+7
tswMbL1oMLaOoRkirk0KiTIWIu8fHyryT8yATembrGWDBtCY5rCX/zYDwXuS
sz6oVCORhQWPHWFZUKuZdmBAmwyr16wO/hgqRS/Traljg5P/WMeV6MfLt2ka
kJzmiXxcd3Ces077n+r+9sLPnquuU2iRf8PZHWxdUB89ofCNPhveFAStvyE1
ihLfsl6cZR0GxsXzvFXe5RB5q9Ef60lk4hK/dOppDVz5mBxH8SAe/OHFN5dL
ZORCwTL9JaEMitWOze7FOlZ/RfAu1tvo+5PveU+Si8DZfM9EPdbb1z7xXsY6
H3UFsmwyqcH6K/5kDjPW+aZft97F+wI6eXLbW3t5BDq3Yxx78b6QeHVhDO8p
iMLq69bG2ixI8BKxrcZ7yp/Odborsx/zIci6OjgbR/Yi+6IV/wXMh3+6/sT7
8t0HI6bh6ubpM9aarWhWiN3e9UwacBhbUx1C4zAfEbaZef8A6jB8khmC9dif
/Nj068tec52Cl3S7F7axdaEO+0/jX3E+Q+/43sD5hGZB2QUy6zDqq3sWXen9
598DjxScGiT2UKVvpZcIPcm7O62G4Fv5gomxrB/Gf/Mt+ptvr33L5EudSAd1
7kf7Md+ihgs7PAi+vfJq2yrxPfvNi4eOE99P8fkHX/w/4BP9jc+houCE/YyF
oNvhnY3xiR5UHkoh8HlhlskG4xPtJz+l8lOpBo4PUEHgU+ym2n6MT8Sy2fUp
xidsFh0/+j/hczJCcsHBqxtNdSlVYH6DhpMJKgS/hSk/GnJlHUD3mIWMML/B
eYWVUYLfZINVhyUjphFln9fjh5qt8LVGNN4N14U3fkuaHBpHb5Yu38V1gYJf
fOKhuC4PO6h/ZfwYQpql6UaYhyEkIjiX4OGU+dYyzMOIYe+N65iHwSqndcsM
5mGDM0KRbXcmkI5ss/z2yj54N6htRDx/uH7z0nk8F+DA8kITngvoQ9dgEzEX
3rP8/IHnAhyuX6+J5wJaU1KSJOZCf5hQCJ5H8OMllRSeR8hgIeIWMY9qZAwr
8DyCdPvVDjWjEfTGt5SJmEeikZQydKmDYMTR4fhr7yjSfVisyT7XCPLqPqac
du3AfOVpyoNvE8g8l47hlnQr9O/5ZGshPI2sKxlMGJzboc2UnnK7dQbscZZ2
I3R+xgOp1wT/J4k0GhP8X1xuurN7oAolBXRME88zE1ZNJYjnmTnKN+iV7uWg
+yDpu0KDZ6n3UMuRsSawSX8YX9Izg6qbpii8bWtgLWD6V0tBNlT1JLPTc5NR
bPhC3D6zSlBSZwj/5J8GWlWlesTzk3da9O+Jvcap9tspYq85at+1qHS2AQI2
qh4rV5pE2t8OlXbSd0GZU+ojk9hW2CjwLhMNTqAHL8T4zui1A23XPVbPPV9Q
ZOAzldETGM9vXFi0pNuhYKtoDvG7O6Y5fWHi9zMTo16UxO9nFk2eJsfh/a7g
reah9Z/HkcixYO7SxC5QSAo2lbzeB9RW5iK77owhP8PW6XXc7VDD/ouadrgA
6DbEWRrsmUIUQid2Js50QT5FLXPSYiVo7r27XbxkEr2Y3aTT7NYFLioOjZGW
ZLAnRzTTMpcgK2GDw4KJiTDBejz3x0cyXPlM2z63WoAKBD5qWi1/AqfL1aHM
7mQ4U7a5tcyjCLGNX/869ikSmJ95L7VbkeFl9Ss72UslSGv0aeIW12h4vv/K
KBPe95XOniK1WZYhoZ9atFEhsXA/OvKyjhwZZv0z97Z1VqB8vEYID8dDg9al
4T3MZLCSst2z260anWRLWqX3TITvJm8umA3NgCV5oK+Yqw4FBe1ISLqeBEuf
OQ92VWK7T4v3jc461HqTd/IhYxIoiQcpBe4nw769kzqrdFVoh4B8+pd7kYBO
bn6t7UlGS+f8967rLoSdixvZAsKj4O0gq76ILRlJ9/FSez8qhvWu60sXdeNh
4e7zWpwfxO3VtJsO95t1ODwk8pNCuXxApJoMPLL7fSaDshCDYI37cyc/aFFI
nK0oJMObBMdjPVty0WmWHXQ1wf54L646vzOdDBH2aeYNd/JQCfvFm62TgUCd
8dSQLZoMYjf65BZ/5qPO3eX+5juCIbvQsXWnHxkMLdZ/M3cqROK87PdHfwRD
VpVikosXGc7WPCd/Vi5C4vN+W8+nBENnsrvK7jQy2M6NtB3OzENhSxKHH6e+
h+X6z5ci7+G5E/l490vKEtiVP7fj+ItESIz+ZojtsCEzq8aDsgTty/jYo4Tt
yaOxJvSuZHjUOadI71CEYk4vBL8vjYETsRstW1/ife1lr0cT5umbq2zOwr7R
cGvK8jllKBl+Xs8apb9WgOi2kegPXPsEw4aB8lLYftNU1UPEqAAd0GIst9P9
BEOzwqxRiXi+xy55XeHIR3GHL0cn3gyFRKuin/mlGFfNu4ur1rIRa8XXwBuD
/mAZeG0J25HViT7+mrVsCPigvdkM20sDZsxv4r2y5uy2Om+7PEjfOD6xdiYE
3NuGN2H/iF43dPdVjnzQjLc7n4T9z0UhaRwP8s+eoxc1KoDWe8FG9jieC1fu
meNzoZ4VvW/4XBDFK84sgs9Vvm8l5udTMmRoXco43laEVrRrZk8pxIL+qi4X
xhWSH5Wlp6CvgiZhrU0ZGFfqvCiPHEKGTWxSRRXXC9C1N35nBU3weUeDs7Ad
jesJK1VeL4BVc4kxws6kCRHYPzpANcNzoq0IFo07H53G/r/bvDTGOASz27nh
Xo+K0eOdzMcIHIYfqffGuIUTlpqZ9N2FaMqk3skf47aEVzOqCefZKvEV6Z5a
AUq9bGP2Vv4TZFleYsN9gYY/jpnf7KwDj+8lpTa4L668iDqM+wgdt/N2LuGq
A/0DQwbJuI+OfLrfhPsOHTTkFuV3qwZnj5dv1uG+A+nWi7hP0c91y9TtnRXw
0KZcRwT3ad6EfDfua8QWqv4L9zXw6fENEX29LSibjHkA9US+45W7VAIxaiX3
2DAPzB7f5o95A23aeMm83KMI2BOEw8cxb7TwzadjnkHmhRU686sFsD16/TLB
Mz0+5mH4XGidkFMmPhds+KVM54PPdZ79lRPGG7rdkG687loB8D0wDiLwxpTC
mhn6jozEX8Z2JJsUQtZU4+qz+EjwYFW6gvGM6p/3hGM8g+hLCqEPGM8Hj26u
N3uOdZ1jlQVHYBF40FpS7haMBU4192Zsh8vUFkzYjg7L8z3iw3aXIKX98t5k
OGReXqSVVIj8S9pypM2j4OnTfQjfF9jMwozwfdGR/YU3ifvGH/AVwtejDpd9
4tpJhVCxOq4ig68fPOJCzxRFhtM3pk+QWvORjsUOx2iacHBkffrlF/aPhJ+V
puQWIk79Chrt8ggIfHf7HsY5IMiQwDhHvYUtJALneadeR1dkkkHW97j0I9o8
JHtb9+mSWTDcHdFVZnlChlNeUjcczYpR/9xutdQ3UVD5kHkfwVesuZwjXZiv
5M6mRvk7+8HMYM63wzfIwM57YPW4fim6dGyRZeVVDEhUvpYvwTymW38zwpst
F/nFDCtfjfaH7AAL7T1nyJDpZFX1xb8czerxcJ3Ji4NftY9rqTC/xd5hTkux
zEN6HYxWDNRBENP87lTwHuzfzyTbU7gKNan6LcjRJsL2sY6fr3EeDJR37rm9
vgCFxde6S5GCQe3RHUuP7zOwy9JpoWeqBr2LAtlrGLdBJ/tucr7HeTiwxCeZ
XIhM52+X39YKgcSD7BVqDTPwIPuiQGlYHRqYMM63fJwE5+oLEh3cyFCjL6q2
81cR6hQ0ttqSHwLhMLGxpW8GJZZ3XGnVqIPHNF7uCScSYNTVTWAB4+T6Hjqt
DJZi6ErPlqKWCwGbm/dn1PwwzyjsbKT0KQTv0GX+V2eDgDdL3VcuBvM59cjX
yOB81PiSlcbKKwzm8pbicTwo5436EI4H5Opznt7D8aDNn3cff0NGW9IR6bBF
EQzeLDDtTQmBdUbnaI6/JaNDy0wceluL4O5pe+3nHCHgZrbK3FdMhvDojh9u
VjnIQD/kgF5QADyI6TDA+UHQdYijb6oG1GV2dxD54Q5SOHMvmIycwlrsmHsL
wC/s49H6pmDwlXCneYT5R7ebdqaipABa7kZT3fkYDI92XwrNKSODL68RG1Nd
NhJXoKM78PojbE+ILMrF9mAjbw8KbD+keD6V3/0jGD4fP4TriA45Jcd6CVfB
XbvDtodwHYufFnjxJOG8RZwUiZDNh/lnpc/jgoLAZGg1yRDbU6WTZO4dyIc5
iStX97sFQYD0AU3pXDIw5/hSuFkgNGH3df3lhgB4HUhnoojtV6c4z0jcQUh2
69GmtoIAWGk5dBbjDbFP2fqk+ZeDwcOp9SoYb85wXxX7QbJws83dAsG+bZfb
rmA/ijflDLEf9Pjcy72SdxDQjN0L78B+Ph3w9sdxwlMNBc5PsvnIWU3aPhbH
GbKbNRvHCS4NXjyWB/JR5XdKbVEcp8nx8incF4jm/s34E/qlUH98dZDoi54b
4v44b+j5h0sJzHXZkMa9FiiJ8zbCczsX5w3dYo3YR4XtzlXeqntx3nqE5bRx
XWDrPuuDTL0FqIT/6oY6XBdFmyxmXBdoTdvvX15SgDyVPheb47rw3Dx+FPcv
IofQUD8xK4bdzy8wfMH9W33DggHjARVapBh7WOWA+FxikD7GQ1q/nBTGFbjR
iocesihClsu3v3ZjXCmrnmLHuILYFmSqu7UIfZeYbHbBuIqa8UrEPIOWu+fV
PucWAnMZiv3NM50SXhjPSDTV+VFUcD601WuFE3i+Ul0rhvsFJpZXL7Vo1CEo
UvWKw/3C1w5HcL/ATddg2TSWYvRcx9eYEvfLeVRCp451S4Kp2sO1t4Wobcuk
mAful/77XCZ5OB4ujsEKJt4ilK09/OSYbxAU55w9gHULUukMazuSmQenDwi2
O2DdcszokAq+HpEszNRYeYug0afFVwlfP3KJiuPYA3zfm/UBKj3F6Gx8bvVe
jENTBkN3Kcx7pHbaIUkcz5Zrn/z1c+Og2CmTWsiRDA8oym8e4y9GRy8ZDu+k
iv/jvuZzxPK0xxwZDQlu53uyLh7MPn89d+bzE2hKWkhgmcdzSvhbh69tHHD1
n3F/dPwJPDE/+hHrMbThLvvgF+UiuMHgUKWG9Ri7mu5HzD/o7W4Hfr5fRWAh
1MjOjvlHWVCoDOs69KHxufkdp0Jw017XMIZ1nVXNwCXMbyhY6uvrg8mFcDfw
CtddzG+UfIwaWB+i3LevzZZ+5oNKokPebawP02Q+zmH+RCspLefurC+AzjPX
Y6Qxf1LsX1XGOhN9VXe+3XgnD0z1Z/Xasc7U6UAlmJ+R3XqP1M+WedAwknVr
E+Zn2rzccaxXUdnjydXeLbmgEDCWUYv16g+vdwcx/yMB/57LPmy5QDno8OMa
5v86RRVRPEcQ44tHPNNBWXDl0kZmV6x7P75x4ifsdKfFr/dge7tUnHAgni8r
1BzheE6hoezoNjynYFfbkOQynlN/yv9Cguq7+SYyCP0QYc5ozEAa4+YbXgy8
AaZdzBvO4TmoeEXQibIpD11uIKsl+76HGL3qfRRzZIi8/317um88SnaUMtHc
6wQV1qpUeM6iCxF76/CcBYZC350xeM5qGOjk4zpCd/NHSxfbOGR3ZIXvDq6j
TdUIK8YVUryXMYdxBbVDppsEMK5+dDI/x7hCWUuBcBDPBZ39C9wGGFeySYZr
go5kZMQ7VopxBWITO0x2YVwlSrPPqBLfd7RqJtE05cFc0GuhNBynyCv57ThO
JJS3n7LCNx5oslI/GuM4/5SH/9r/a/+v/b/2/9r/a/9/aU8/tvr7dzKPzwtI
Ud3oyBWeuCchmfD+H/9/t//a/2v/r/2/9v/a/2v/f2kXb/rx+3ebuUUW3L/O
9pFYfJcrVNMC/zi/MqQ7L6h/TEZHc0Sun52fhrFW1scPWFqAoW39nHZEN+y4
uGoXTRqH+YDUEw3N7UAtnaR/K7gSKsKs/W9VTsJdKjYeSfcuYNu4PeOM0gCc
f5V/kiJ9GE7xfojpfNUNllvka7K422FavsnAQ20MSl25h+M8+yB4L5fQzWvD
4Ha+9Oeqfz+wMnG2F3zvhQy3npO5x/rhp5ittdLcIFj9XNy0yjUA69t1JhXZ
xqBvZmZ2l2gHbClgVd7l1Ac55MlqPv5hCOq4PVDT3A2ZQTYlaw0DwBYT9ChQ
bAIC9q/ECrXXgVQwRzqtVh+kUqXdqRccA+3k1JdZco0gxHiPwzZ8AC5281v+
iJuEEPbP4T2JCKxmQVGBpxdY/nofMk7Wnj2BwqT8v96HLKc5f2/+1ATUNlmx
baYpAMMPQT6Vsf0Q+Nd7ffH1F4n3+pb+9V5fanJFPK3INOwFhcVqUgaSaPOB
787t8HT4pveJ21NglPN87dzebJTM8fqisUMXnPWTesf2ZBpcYrM9NUglyDJz
3JHE0wIu1q1hNRNT8Dp1b/x33zK0karMVNGuDWxs1Zy2FkzDF8/BNvmuKlSQ
d1hvwacBXum58Zw6Pg18bzWzu+Nq0cV+Kj0NsyZQo3JX37FuBkgUH+N/yNah
7sUc90+UNZAxGjrNHjYNBmm3ODk+16PlLVev5BnWQdWXzqXuazMQJihep25a
hwTvJbUpF5XAndkNIjt2zEDFhY1g11CPKs9N74asMnC9emuz+tgMfDnsHV6n
W438s+up9Zpz4eLcBplzaTMw/SWVa3dpLTLtUx99nJgH+ww3I2XPLlQYY5XY
1ToBbmeV6T+QG+HcyJWgQMnPqH/T+nJa/SlIO5X7c1G0G4I3CQj+OFwEbg4T
6lvYJkAGiUT2NPcDD+/PpMSxFoDLBcVj7CMwJ7/Zfo57CJhe9h8eae6D/nG9
9tcDfWARU1F3S3MY0p4osV7dNQwbUs46JNC0wACzqqit7jAUJQzWcBwaAztp
zR1zkUVA0v0eV3VkCPb/9T5hSgqKKeJ9wjv/ep+w/augdaPGk0B/jsJZMgUh
w9KzzkdZ+mDoadTb/O1ToF1IQ6F/uxINfp2XBt1OULQoXKcYNAX2SZSfvzrX
I1fla2ccPrYAZX/ytiTeaaAyjOXyt2hEuhnc7TEUDWCVvBC9LWMa3nkrPL5q
04js+upz8tdXwrLniUrT6GEkkTFTZ8Y0AkFpl7ctWNXBE7ILlUBoCzKROrMh
78MEeHwhs7bf6gTj03D7l0cm4r7PnmQkNwE2j0I9PtIPwOZ3XuLTInlgkir1
bPrGKBjLlVBwmw9D4crd5QTvZtAbu8Vg8GkAlurfU6RGjkJFwdsXZkF9UM7O
uX8LbTvcyo3iL1Mdg+NKh9zvbB8G/4NXB/tKS6GhkpmNXXUUTvxv7wcukGf5
6/3AufmBwrOd47D+lcJLMboC5NzswOelMgAqu97p5y5MwFU2z7mM/hokt8Uj
brClBzq8z7gJZk/C+RzvweEXjWheM/J8AakdBl5FqijcmQL2czc+lLg0I8bi
Tsm02UaottPR+yI9DYNeXNN9d5pRoXTmxYHiarh4/cGQRPQ4kp18WcQ62g+l
XGJrZSUVoBJnYBhD7keaYq52M26jUNXYGff2fBuMMqpq8nO2oF87su2oUsdg
RbDtRDhzP/DNDX2OlslDzf0UQkq6o/BToX5brN0wOAlKHO+WyICfKSeED4UN
gpmQvlg90ziUcQzEGRr2wS7FyxHr+CtByJfxpnDYBFz6672+lL/zUyTf9dd7
fXOqVg7keY7C7j6PoJnYIjQq03rgNfUwuJesJIScHId3Ld2nil7Uoy+0Zw7x
u/bDou7Lqvc2E5C/I/pU5fdmRPN56IGLeRc8UZGeCLedhEwWr/XLtG2IIaDF
qUGxBcwfXru+/HwK6t1qr2tVtCJfYbtHP5/WgXHo/U0bOyaRDN0DvgSnblhR
Ehyt3loC6jdoHl/RHkEWJ8NVj2gNAb/myGTUumZYrOal/87Zj6yUtcQZZEdA
M3/gTldNDxQV7wrZPdWCTpL4jrWQh0HvKud6V+UhCNgzfoeXVIR+cV102mIy
CDsnmy49II/B/v/tvbsl8gf+eu/uCbHHmzZtG4LzfqGTnLWlyDTTr35OZAzA
9YfQo5oR8KHbFw+bm9BJnoa6ti1DcCHfqKoqagwubhGv+TjVhvJM3cbF+Prg
2wlG3vC9E+B41FSwcF0n0vsmcCWctR2yLNyr1r2bhIt3m/iNgjrQoa2LHrH2
DdCQ636PlXsamX+WLVboaoPXjPUSP/wLoE9VYvCD6Dhyz7i9PvdFP4il8cSf
2t0A9/bI7ku8MowuU3Pv2Os+CNxq5WUq/J3Q4B/3+L5iP2JUsJyNyR+E2TzL
LuHzA5CW1yDqUNOGBLlzgsoZB8DyhODWs+qjcPyv9+LiJDDVFJFIXX+9F3dp
c+Z4bkM3fKW2vD1wuRKJvneNXf9wElLmCgpusw3Cww6q+J/fWpB8gPxj2+8j
oPOR6RLt6jCg9hSTCJMuNC9ksCPl+gCgNz/O7ZEbA3vWvAP+4T0oMtvVbc/d
Ljhk5WIiCxMg/nDD+gymHrS471Sy0lAT/C/Kvjway+19nyRRZGrQpCJJpNIg
5KZoFEllTKOQBlNUSkimUhQaaKCoVMhQMt3mKfM8z+PLS0IDyW/vc95zvp9z
1jp//P6y7PWs59nPPVz3de13P/u2Uy50SulkYmTqFYvew5XQEDii+YstFRbd
P5I4f2ofPuRgkxe1b4LZk9POX7lRDAt9bgQ67O7Bp0Ln7a4uaIUF/vnGdVnV
0GK3yfvmqU68lqgxe4NlK8RnmvCJyLbA42iHOAGeNvSoWLtDfUUL3FxQ/sWr
rwO4G7bZ3VGrRyV16aXpX2rhTNWmF7WtvTRPRuh5tn/mS67SX+fZWjeKfmu9
XgS8Z414pi0vQpmHG9wOSQxAgdHt1+Q+IF2gL0zug9ZDfQ/pfd7/XP6ZPBce
vfqxhTwXy5K3ddLnymocCCbzhACRKi4yT5QU1JpC57ko1DWCvBc8u773JHkv
9B48pE7f65DuGp9a0wHMbGHuehFB4uDSrfeDvxIh4UPpu9tK/SjSYitSllIH
WksDfn16+xmOn7itT+yMYfNXyBA7w/bXN/OonYdV9qkSv6CLQoAm8QvoOXC8
oH6R3d21h/gRD+795kD8CNseqaygfrzmFR1N/I6Ld5bHE7+DjnmLG/X7fNY5
tFPY2JL+9xxaLvNV5jLCIchpD6/MxIsxtZupdm/qIBQsO4pfjubBLMelH5st
GlBoqBiGRvtANInjFIlPyH28+BGJTzT3DuKl8ZlcvPU+iWfAd3ntJJ6Ro25m
KY3n8+sLt5H4h/jo2Okk/lHd71AUjX/NEpmbH1IHcKnK+9pS3xKIzpqYLC6L
B4tfGYqnhJgo+vFLs0JyNUgw7xie8MkF+33S6SQfUUGFfyvJR8h6JP+c5mOQ
grkwyV80ibdSJfkLfCKVl2n+Fr/zQ5Lv+NJVsoPkO/g6PRuh+e69anwxwQec
ZzSWSPABOrzZ6ik+uBQ2/J4p0oFnYmd9J3gCR1RnNVI8SfrHubLpSgKsc2W/
uH2JSd1djp6+T7O/lBaiz4PMHxsDmBA+1/jtEYf3uFNb8/mmiQa8FvD7+7hV
P4j4eQ4RfAOXmaOOBN9wU8wHfYpvsRsPNBI8BP34WYoEDzFznSg7xcPXBv5i
BD9BWaN1GcFPlLIzMaT4afTIaah8cgDFPO9+H0ouBJ/7CQ3qOz7A3MNHnne/
YaLQ49xu812VMKCw/qHHtGw48y7zMMFzDOh47U7wHBJTpHwonvvc4G0l+I+6
JRZLCP5D9HXLBxT/97iLZ5J6gQfTV+qTegHj/dNu0Xqx68WUV6S+YPf9DG1S
X2CGO586rS9Dx42kSD3CD07Xw0k9At1gDmVaj56zzon9Mx9TlfJZ58SeT1Z/
ROodNvK/iyb1Dg0enLSj9U5y2pWlJ70rUGJKSGff3XpsZ2tdlvOLAS+mlxk3
rPuEB4tfrSZ1E1t2iK2jddP2YM7mN/KpELzmqQSpsxhrunkurbPXkjY8JnUZ
3rTy2ZK6jMsDXqvQusxV/+yO2OpBrNXpFNUfzYfR87cMDNbGwrd8lUHdBQMo
GvRtg9C2csjSP13ay8yAsMWHDxGegAWVc7laLSsh0D30EuUJTVq16oRXYCQv
TzThFTBPvGcH5RUeT3WuEx6CBZcEfhAeAi8kqk5SHtK5fb0e4S3I9Fk5LaG1
COwOf0qhvOXnwa/LCc/B5bp1dwjPAaHGKmnKc26wzn39025JSmysc1+l98u5
EB6F2qc6+wiPwvzxwEWUR31ImOVAeBcqdN6RI7wLk7fYrKa86+4l/s+Ep2Hp
1wf8hKfhruHXXJSnpVduTu2XScXx+288Ca/DH1stOSivC3j08fqkdwJ8qIp4
R3ggPgtXuEV5YNLst+9DtQbxa4v6GvvUXGg2ObmI/UI0ZL2e+6793ADKHvzO
XeRbCuq629wPyqTD1riiF4SXIj5RDyC8FJpG2JspL11bcE+Q8Fi0CeOXJzwW
2FqjGZTHuguoTiG8FzeE6OYS3gucaoGHKe8dZK/0ITwZS9aFCxCeDGvDj+yg
PPnB6UUchFfj49h7LwivBq0z0bcor774j3Nc45WusM5xzeuVyCG8HZetbltG
eDsGzkj7QHl70UzxGYTnY8i8e26E5+PVncnrKc+X9apZS3QBurr8aiS6AE/f
CK6iusDvoc0doiOQEeCbT3QEjowEXqc6QjrhTvbYlkz01RTUJboDjxXfDqe6
Q1a2x2nCbBA1BRLPJn7Jhv0SE3urf0dBPJPv2deIAdzgVlKpJ1YCuw+/5We+
T4XnzesliW5CoXNGB4lugr0/87dS3bTC8FIv0V8ok+guRfQXrOrSsqH6q2Nd
2wKi4/D8/seFRMdBucdeC6rj6jYZBBM9iIvmH00kehBa3n6xo3qwiO+4D9GV
GMMI5NdekQTxHU9NqK6M/se5rHFKCaxzWS9ncFkSPYs5BlOEiZ7Fy97Tn1A9
qz78zILoZfxtvteP6GVUV3q0iOrloerRbKK7UdRmoIfobpx89ekz1d25Ojkq
RL+jB7fMFaLf8XyaryDV70WBC+ISF9fij4NbTnrv78HjQ1I9dB3A5+ulGUQn
In/88VqiE4HD6aci1YkvWhuHid7Elg/8HURvwgvFtyNUb0adubiP6FY8eHXV
J6JbIU9I6iXVratPPnMi+hex+2Un0b/QynvLnOrfDHEBP6KjsZArKpToaJL/
g95UR58pv/iW6HE09jb6TvQ49O5btpvqcUnWeap/5mOM0l/nqZ4+pGY5/q4P
X0baPWuKQjwuUqlJ1wfeKp24+HQNA9fMWhwpVVuCC3YlJdF1BqmqoG41ktdQ
9Hx02eo65Dn/Zg9dr1A6LSFhQfiPesWRyYnHrTgxPNlI1z1u5q2L01BvwyU3
x/awxXei77H4CLp+wllV26v/shFbprxwClfuRTU35110HeZJfSMu7zBVXqXt
YR3FOQBrIxS1CQbB0dv2d45fKgONqCMzq5X7YBZ3luCDaQ2gmx7/yuRHI5wU
ct/sot8N3dN1NuW2N4OtPWORtlw3SO2deeTTynqovWhy9LphK1x667V5b1Ev
iOWPeIovL4WceQPvnJtaQD9adJa5dx8s4et5eCsSwSbarEX0bvPf/YyI0bT/
t59R3fahkOBb/dDYmzxlx/IkTN87vkWWpwEYCltfCs1lwnLF/SfvyeSieKlC
rE9mNXQsuSeYc5kJehVpgRJxRehzoPH69IflsMhQVjmgnglsy5uceb+VYNgz
g3ncYsXg+dhi9y6tAVC6JfzhXGcJBls8N7mrmQMLlnC/HhWtxZcHxLL5gvpg
3KGzO+t4BVzfUHaVcbIEVI95csTe7AX79SfZJK1agf+6kf2a+93Qonb+zjT/
cmhTn1HJuaMdXoxL1hguYMAzM8/bqVPSIXTR2NGWr61/9xUi78v4375C908I
8lP76O3xv0vsg+lz7jRS+5gu28aXp9cPK7r1PNP78vHUI4Htqhfr4JzqWOit
7n4wiJ+YozhYghdKFt+BJ5UgaMPBtuI0E2403+Hs8ynDJUY9/k94SuHmBpRq
+MUES90dcy1PlOGJ0W/H3xvlgVjrxrZfqR2Eh+3ufFPTBdltP34w2kvAYu38
AyQeMPiUtzCNh+WKIvNpPDyR4r84YmCsPFLwc6bvWQaMbeW+OmdGGxxa9bDJ
a7gbFm1e160UlglWizbuM/Hv+Fd/nxSlv/r7fJva9od9Wm9tvUnsg0z/pX/Y
Z6WJZqecZh98tfx0fyYU4SwtaylrbITaWN38S6L9sJP32ZHf5WWYFsq9eSlP
DSjZn977oZzwpu/fxjZfrMBC3grH5rwyYC7vkfX0ZcKKmO+cR5YTvtBtKSiS
+xlknN/v11vTi8POSUNeLm0wkDP/N4/JZwi8dFlT07UFKz5FLjtl3ANTlofY
vplTC2Mz0wxvPi1Bbr+wI8JXeqGoY8fKpZdb/9VPJ13pr346TWe1m6kd5M1f
DxA7oFlLtya1g3TfNkWaFzKbr7mRvMCUBdJvaV48MDr4+P104ncnRY+IhZVo
uv/RMaVvdfAks2pGIFc/vHlWrSuPVSiToHp/oKUCqisejn+ewgRNI4XZoUpV
WLTW6Y7vqyIwlX43e5V/H16UmeR7frYJdsxJ7oxzz4Y7beMxD206MTiQ507s
gk5YJrNJcnVqJfT8ci9I0mrCjqojiUJK3eCtdSd1U3czDHnntF0UKMGBYp04
jbIuMHXYvMF7qOOffW2cMpX+6mtjNizRU/22A+x41kiJpuegvADbz6aobsI/
Ey/RvAgrf3KL5AUyNOvLaF5YmVl9k7zcC3nfwuLSm6qRKTEWcdKxCW6/0llf
3seA/EJj68VXa1HeXvDuPJNqeHdz5hZzlX7wiB2ze4w1eGxK57HtfKUQw8so
jh7ux2M1m7y0fWrBzqF3zZHBdDgqUJNc9rgHC3YcK14n3QZOa6yt+JLLoKj1
t5HInA7UvB5kddS9A3KD+b0fyDeAoZStwcWLjci+syjsDrMDPPZrPG1e3/53
fxnytnxF/9NfpvG1V4fCmWbYqNO4aWTJZ0zqP/p8PU8fPIAzC1erdcBTE4ms
86erMDrHgUdldhf4254Uozi5RI1Xl+AkXjZZb0RxUjyJN0Nftxe22v9+9Tq/
Ad/g5HTes3WwSdPBLWtNH1RZtjNH8+rR6pDJ9xzxcsDZM05jHhM9K24rNfUT
PmlouOmkcip8XJ0SaBHGwDih5YrbrjTD0yrpWc+3lECRe9qNG2e7EXS0gteM
tsI0/dCq0bgasHqS9SsvrB2NCzn3bg9sA8MPBj+fC7XCDI4ltnnFjdg638/z
0/lWMJ3/Xv6lVte/+r/8n16eY2fr0mJYCheO9duqfS/E9ctLty1pYYJnTofj
p7tNoPNaMOXkjVps1+T+nDizF1ZkOWhZVrRDbmLwZpuhJjzXfKkuLrcd3h2w
LJXnIXyToXP6iFELitdpqahPb4IB0BjtCO8Fy4aKOaGXmzF+XOxa0NtK2Hp9
Wtj2AwMo/eHyd2uxcshX3x2abZQEtukubKkTfaid9n72dJ96mH7zbkaqVQHE
7bzbSe6DW35c2EzuA31muvfpfe6FbkDyXPxZrXeRPBcsS2P06XOjl6hsIfPE
be6v95B5wiLHmE46T36WLib1PYHq4vksXZzpsvPt9m36yjE2ipoyS4txg26s
3QyeQRjd/fDEzfwSEOzfbPFhWgN67KqTlXbtg6dLRMOJncFPMMWJ2BkFjtyR
oXa+EfhbMD+sHWYVrVMhfkEb3jQm9Ytd+KFA4kfIPjftNvEjjq+sT6J+dIzb
Of9U9ABK5vt/CBouAS2XmLt5op/Aa4/84+zufnzPs7Zb9VQNpB9TXBUimwcd
R50vk7jCvXWneb/l1UPOjTe8uSSudIuF40gcYn7B20wSh+BvcX4JjUODde7C
JG5RUavTgtb3kAmGKY3bOTa/eEmco6FiTTGJc/DJnDqbxvk/+qoQfPirr8oD
oTsLvuuV4pfnvAwb9iIsiV33paeZ1KfiJ4Ib1pYAp279I1jejs2HefOUDvRA
+/61d0k+QrBdSBDJR8yqnfSj+WhpZ21P8hfEtaYfJfmLmeo9tjR/3b91jfwc
GcCV7PcFuUyKwI1D+N1Dtw8QuHDWs6BbhPeq3LkcUV4Jzs9VQys9CL8emy1H
8ATHn/IHEDyBQJFCO4onLSm9UgR/kN1j1I3gD0wE/wij+HNFXKeP4BU2cl3J
JXgF54+czKJ41byEcY7gGwquk31E6/7Wx2ENFN+iVhrUETzEzQVXNxA8hP3Z
B6c2EzwM/ofOTVcqYOlcj8q6TwRPcKGm8y6KJ8nubyMonoiYz/ypcP6I8tz6
me1Dee3YumRLTu7yXpBv1RK/JFAC53z5Igk+4/6OK7IUn1usjLiTtZqg/9uJ
CILnmJcY8JbieYer2ZI3ywdx/se2bVfcPsOtrimcLqdi4ZPeumMwdQDPRkZe
iYwrh9UGsuVf9DPh9Oz7w6S+4Ew59XWkvoB7iFssrS+rTRKnkHqEul8irEg9
gt9j7G9pPVLo0vEn9Qsjb/98QOoXML8/tKX1y/L9bzlS77BYUfEW5YEHdKvi
aL0ru2tWReojeqnd/kF5gtL8l3q0Pv6zj0mK0l99TKbV17B9fNWBjnkXdj/M
y8HiZwaf2GK7QbXdRIfgDLZUp+dSnBHu86+kOOPYN6t1/doSLOhpe0Lj6qrb
kiIaV55Tiup27R7EtFMrxSPF8oDD4P2qKSHRILcrRuv04QHkktBJ4vxaCuPc
MlHcHumwa+WSlYQ/4Iq+4aWEP8D36ynrKX+wD128nfANDLv2SUjhYgV8sA32
oXxjfrB0BuEnuMLVxZrwE9A5kr+H8hNXnqXNhM9g9fnZUYTPwPbtgwqUzyx1
319G+A+Kif/0pvzQoc3JnPKff/YZSVL6q8+IcMy7P+zmiHWDlFfUH2j7w263
DjMBN3fgVJ/Hp4+4VuGk8/y8TfO6wKvG+szu1414404gu5lnK16y8R3U29kF
UiOH066cGkRJ03PSZkty4IGS5bii+HuYM8tC3zJ4AJVbtxkKXyiBXi3n4PHf
qfC9tHQ54Y1YnDouTXgjbIlTdKa80Y+rd0ziNBMd3UTnEp4JJQZTwijP5Ajj
ekZ4KX6zK5AivBQG6syfUl46ZUUpN+GxmHK09gHhsYB7Vh2kPJbNrIyH8F7c
ers2muoCx6AGJuW9/+wDEq/0Vx+QX5Fjf9htduzXW5Q3mqQGmVG7RT50sqL5
eMJ3dwDlG185LtXRfPRfxD9qndqO6WOPLkaKN6ODgkJGIMHzOZYrW02qBrDz
1iZ1o6NFcPemABw5giCzgKFOdAEulN1YQHQB9BRvuk51wbbpfQpERyDfk6Bb
REdAxSwBOaojVJ+X8hHdgXoOY1FEd0COjcRdqjs+TtvygugUZKhpnSc6BSKK
5FOpTmFaCj0lugabl/gLEV0DmkvfalBds+If+jFOaR9LP24XnD2T2me6la0f
1QU12sZ91D6z1mVuoPm1MGIHzS+UOLsohuZXhskFEYrbHGf2mlC+MV+l5wTF
7StVXaOZn0qhWTnq9+Wmflgd7iq0clUlNGyffCUaUQuXDy0beD+HAQHZam8+
x9dB9eUr0KjaAi+sdy90yOsCTTuP5Qc5mv/ul7Gf1S9jGqtfhhBrXOdffTQO
7JdpXBiRBlUnY1/KrOuHeTUTdpVDDZCEP52Gy8tBLUZ1qJLgWtGRY61qS1r/
7pfxnNUv4x6rX4Y5a/zFv/povNZfP0H8C9Z37lkT/8KmjIvJ1L/WHuGCWgFt
4G/g+XS1ZAsIXhyd8eRcB3TruE7fKBYFp4TVxzYdZ4CQlKNAye//66OxlNVH
g5fVR0PmP8a52Io9SH7Brp/vxk09W2Ey+TOD5tda8Y5X6TZ1kLej5OK0WW1g
aXY0ULWpCyZv9e4ieQrSs01OkDyFny6FaTRPk80sctbVtIKkqXXiyz01MDvs
7c1tT7vBgdWPYx2rH4cfqx8HCY5J5v/06fhr3EsnhJfWU+fezw8J7sGwwcd8
inucL72NAj1yIUUkdtnk+XbQ2qFiuudND8SVLLWnPO21omk6wU/IkN9bQPGz
0psvaaSrGrj2ck7KzauHkrg3PXHmDGgJcptJcBhUHuioEhwG06sYSXFY/V+/
zwqz9N2OAI5ioSmtkOi27IJCQj4YO957NKTGgDbdHZxetkeVF/1Z16CBVdc2
GXoPrpofhS0HfJfPSmqHOw8rTgosJPzPcEng2qVpUF0jrudQ3QB6vBkzDJX7
YfutzjbKw2cu2aNM6iYYCdj+wcP1//f3UMJDmli67Pq3SeuhKZUg/3CyqSy2
EM5e2bYwSYMJjueFGmi92OFQ/pjazfd6fjG120Du5bnnn5bjNMzjMitog0Gl
GI9N37sh9dL5/I+pqVhziSdhb2ID8G+o+S6+i+hzlj76M39zlDaw9FFdw6s0
81fvoe58hnWWTDHcsGoZWjY6AE+OpOQzHdrBoc+CrcswF3tCA0JDX/QAh6ql
DOGNyCjfdp7wRqjZPGcT5Y3C8qn1m/OqcYZ5RtBkSR3sdFYO9HJhQEnVY/sZ
PEeUF+6PAMI/Wf8PgiJLv7CzfgdsZOmXwXN34raJ5ePhMu8V1w2KIGnX+n2e
JwfAP3PWUYvpDXDx+r3zQ+8/o9GPnTsa+vpg84fwaQFlrWDzlSv9/HA1Nl5o
6vz2qRvOvfPRpPVXpPFrHo2fM7/Sqmj8bGcsGfYva8U7M8oLyfUQjr5D9Pqj
dg47iF7A/tKu60QvgEyG1R6qF6awsfX+3+9xOX/rC1sH4Q1kPii89ZYdmQ98
FHuhTedzYCJMTk0sH+4NhYmQ+aOt6Z7ddP5ft8sIKORVA9uakrvEPuielO1L
7cNx4WgC5Vcer0eAxokrm2gkjROx//udCymfn8vi83392QnEL2ie0Dyd+AUO
xUW9p34pDn7RZPbqPS6veuBI/IjrYlcMUz96S+krx6emgvalrDgSD7j50PMR
Gg+vuyo0SPyAlEg5B4kfbNBrd6Lx4zdvpxqJQ2ziPN5F4hCTG1eJ0ziUHBOW
JHGOjWrRB0mc4/NTyE/j3M+8cUh6fhQ4vpUVJ3mBFcM6J/7IC5OMRJJf+GXK
eyeSX7h2qWYYzS/dw3W+JH/xXQM39/p59Vi1L2yQ5m9f4a2JRx65aJj9TYLg
APIHFZhTHLjL6p+yk9U/pZ7VP2UKm1MP83/G61jjnTm3PhG8wh8Pr6URvEJF
lwd+FK8sNwW7EdxDw+nfHAnuYQPnuWcU9/7qq7Kf1VdFhtVXhe3bn+ParPFV
rHH12qkLPscZKb8Pt6frS7i7KeeP9SXub00yG8SiUC9IfJzgNlYkbBeiuF05
nZ2b4DwGHJF/TnAew3orBSjO/9VvZT6r34ovq99KLWt87r/6sPT6SOgzTpbg
+/KbXLE3e7EydxkHXd+TqJE+RuoU0Z/uo6ROIXetZgetUxsN1tmSuoZZnVXh
pK7hwsqiy7Su/dWHxZbVh8WI1YeFmzVuyRrXY43vDZO5b/KjEXeKG21x0e/G
aQ4BSnR91ZXTQJ7UXzThzhEl9Re9O5WlaP3laflhTdflRpXV+KuV+zD84Ok5
dF3OYM7Jh6SOo7OG2hCp46h6cnoEreNGGgE/Y0SroN+mpPmqbD9orPDwOxZX
8Z/7ALc8f1Wi9a4UD2jNdhav6YcTajVXhnUrwbEj25jwQ3DviFIk/BA/MbY7
U37I+XzkmZ/jAMgdbgHbzaUY2iIqzl+XBnaZnmLt4RnY4DFU/nNBP8hulp+x
4lsD9FmZHyR8G+banX5C+DaGlO26Tfl2KIhVdcgOEF1T/vJmXRm2VeznOH0z
A6rN23bLKdZhllDOk2JmL9ww3GfXVVQH+vt+mxH9AhO/qg8R/YJ3l+e/o/qF
/WQHwzaHCdN9s8y2FlRgS8LPDSE+WSCqUpDduZDogbhJ8wLCZ9bprV/SHVQN
d/hevSY6EW7IHNYmOhHnsDk7UJ1ogaU79TYzoXYbR9W15dW45pD2nOvsudBo
eeBj85xufLbZ7TnPm3ZQEM/h8zlVAeOSK+RlhUNAT/l7kJl4MSTv9v/j93H2
5fdeET0OWc+bk4gex6Xpcb+DiR7ncA/MsbLuh/0vLUyeTyXvlyzOfmMiH6Tl
eL6uedmLL7d/udM61gJbH7o8Wf+kFKqell9ovV6EM3nyFk5bXgQznaW96f6E
ZCc+/tSJPjiktKudy6ceL/HK3qXrHks1Vn/apdMHsf4b/G/5NOLIiYUn498W
QVD5uVdkHHnMXmeRcRDN4HxAx1dMdEVYhDFgvYHq9G1XmrFPU2gkZAvhE52p
09e+7AUnRrEtmQ9uDvvsQudze5pIApk/vlRT9CPzBz0v+zV0/h/r+qrLHvfA
+gemMeuk27Bc98sBuv62LMOsgtgNNqx/40Hshv1s0V/vELt5GEYpEzvjaqc1
v4md4exEhAq186uQR5UPbTohaKuobeyCThQqEp5J1y35l07rJ36EAwkW2sSP
WHDu9jTqRz/n5Fbid+R6knqX+B34jyoaU7/Xu54NIfEDl6d9vUXiBze0vjCh
8TOtLn7m6fBOUNYWfHCGvwvHPD8NDduVQK7t42ISh3g/73QuiUOw3pwuQePw
Z5pgaO31NnhS+DT14oUejBg91a+zqQxUN649vutuA6zR6fFsqGZgov1y5sPB
chBxPR1I8gKv9TwxJnkBztzNajQvHJecsdz3rhTkBTdZkPzCXbuSz9H8GrAK
2X0wKBpSD+Yc1/zKRCeH65foftqRqcdHSP6ixJPoFpK/yLV2pz/NX5UWXuGp
hwfhRFSqX0RJDgbmiLxSiH4P0e6J+mSeWNM6d5jME2LPhM06QOa5LCpkeYzK
IAStv/KbPy0P8znc3m7bFQPbfe2eGvzsxhRX89vtde2weeCrQs6bQlC/kXk1
ct4gLGr4fTJ6ZwHOzpW5/UQ2DoIW1DnJMBjonSD+fNHGFjBkP8+ZtTUXNnId
ti1rGwD56MkFGwyKcesUxjqxKx9hmf3K0Q8+/ehXfehYDUc9aPSFzl2lkAnM
5wre2x4MwFCX18IKn1J02xlWUbkvAVLEVZVXeTPx9x3PN0d+V4FC0rfLD+XT
wGZd6PJ9MgNwsPzlibQv5Rjud3uOZnMyLJpsmEPGsaHjRDQZh2gXXU86/oQ/
XZvcB7T45XXIffB250pFep/q26XO5Ln4+LfrcfJc8GvTUqgiz1UUeMb/0acf
dDoTx6o56nF7PxRLkXnum6ZtQd4La8yuPyTvBVtfLLtN32tDzvhLYgdYXPnB
nNgBdb2qYjOJHRizteyI3XCKSloNsRuMjIe3ULuN9CZUEjuD92TEAWJnvF1x
qTub2FlY4Loo8QueYdtkKpCWBy/Xyf6gfvGeN8hH/Iun9KKGiX/BTa2CSf3r
taUwuv3cAOxb+JVR6FuKOgGqp+jv6R1lSt90FwzAC+FQIaFt5bjJXf0d3Z9w
TWxzgNjqQdB6YB+rN5qPEgtdZtL9DMuMk992v2EC2y7JFPNdlTgeLG9J94Ho
83j+LJ8cAMehVOeh5EJUNnJ3o/tGTBIKtp8SYkLO6lVxCsnVqLFmQJbut/mc
YO//IXUAJFcpB5T6luDsHQHP6P4cUS3fpNtK/RD2Lau7NKUOx861fqb7l0wt
yoJqTQfg4rs49hcRZTiyzGk73e9kZaBcOH9qH2zwODhN1L4JT2SObab7wYY7
dHxTOpnwonvr/N7DlfjSPEuQ7h8zWSbz69HqXtCc4GEme7bi6q2bfek+umtM
i5tCi5kQ3dF8amtDDbpFnBsYe5wO1xJOBZ7U74Kvq6+tV9HrQHV272K6/3CY
a7rMjLo+sJNwT4i43og2nnMC6X7FoA8zBOXCe+GzO9NLqLsVnWOj39J9nl9s
Zf301HpQYu6VTM/b7RDb/ruklbMQJv2WpETz96Fynw//BfYW+ObBGS6fkQMz
ZDa3rAztx7maEg13U+ogLLMrqqguA17pLn1k8oCJC8blvXNLq0Am7+OjtC+p
IJLfHvBYbgBbYq+8Ta0oh1tZXruXWiXDj90eVSWBA8ipypXI51QKm29eMo8f
+wT1mutVcjoGUNf2AmPBzmJw3W2QGbjpI5hvKZsVJTKIv3gnCo6rFsDVHDnd
9T9iQSZOO3Ot6iC++fnyyQDmgXT79qqSBTHg8e6l1Lkjg+j8RUu55EUOxBZM
vXrh5nuYY/vwvIpwMq5ylJBWL2fCK27t1AecVaD7Q/3IjaR8XP68YfS7IRNi
JuZuvRteCb9DneNgaROOzeW4XHaJAXZHlV28HpVDqfGJc6uUW9FiPDnz9K5e
YHfU6yuNKIOPe7ZpqSxtgsIfV3TI9ZjUyHOKXp/x5ecncj3oLD5xn1yPBqtq
8uj1plKG+luFkyFJLXQ5mQ/u71qWSOeTukXRzi0pHzoGvnST+SAv99VNdD5n
eC9kXzk1CF41xvmmS3KwTKn5I13vcr/cKEveF6ZHezUUv8jBO7r5m+j7ejzm
OrBDexDmumk5L3uZized7BJ37YkGv+jwQTX9QRBAscXuc3PRK0B//8H693CK
82LLrt2DsHthR2qEWB5y8kS2sYdEQ5akUj6xM0SN391M7IwVkvU3qZ3n73jt
U0LyUUd43ELmaz52mT2XVJmMASPeQ5nymwfhXXST3sMd+bjkI8eu7ZdjgJ1d
Z8Wb5YMwFGta6eD2GZcFXIlzPhULqXob5xL/wpPeKQbEvziSo89J/Rsc5ngR
2Afhnu0M57j3hSiCC76nc3+A9JBTm5bOGoSfFhzCSzoK8AUv09jZPA5W8k53
zW7uxbrt3uoCL1shPPR4+tr1+aChW17kd4eBcjJzRAqSWsAKmqffz8kF46a1
Ez9HBmDd59DAaSaEjzx6e5Cut78K/b2TxCHonABLEofI+eHUaRqHT1W/9Rhl
DID2Kk7/rTdKkJl8SHCFWzxotjnEm1UNwM/9lx7t5CpB2fvdzRlpH+FCXdDo
2GgfOo4q2Y7LNALHYwEzh9dZ4GySsFzesB85Np1brlVSD69PdUVJP8yEAwuz
xE9FD0DVh6c2QcMl6FD+ZC39HSTkzINWki/Q08+0I/mCLb1bOP/Il2TnX/5n
BmDxzKaYvAdlWMzZm50WmAhFukbFge4DcMCRR8l8vBT5F1nmWYUlgGymxH5p
GSamJlhduPWiBub7Xmw8vCcdzFdwSkyeZuLRDQs91j2phsIgG7kxxzQQ1+KO
2X5gALQ05kVai5WjH6++PP19SrBBOJTkNSyzcT1K8hoD9Xxrl5C89pT7oCE+
wASTxjKbcwqVuKksYpeNK0L0jL76mXMGwKit3vGWVQWujtkudmRPCnw/madE
rkce6aB0cj1kvHZOpdcflcgrINejf6pUIbkeZOf63afXp4zwOGAeE+aoOfQ1
9lci3yGtsRPKqXBf4MVbgj/gZFYlT/AHp3qMG1L8Wflmvhl5XzB2/S5C3hcz
dFc/ou/78PUGBfK+0GZ8R5a8Lya+tfz6k7wvj73iF2JPXGhhMUbsCfnCm9ek
E3uKbHqTQeyJ/BeZzsSeUBUlucaa2LPre0d39HA/BAnZSWn71KLKhSN9xoPp
0PnbdYzgJHDVf7xIcBLXVT81pziZOTgsND7aB79udPGSeMDJhNaFNB7mX5y2
lcQDRO4OR82Selwtsd2UxkNUFF8ziTesj+CuIvEGt3M/WNJ468iViyTxhrej
dGtJvEGZvZZSJok3Efn2jav8+8Cn8PuLkLNNOFT+6z793Xy/0ZJ2gucgVX2q
1pa9BflT1Awonu/cmBNJ8gW2MqfxknxBvjPOljRfPH5Hfif5AuvnFTV/TmrB
L2vFPwaQfJmZlmpJ8hFr5/l8JfkI2sZGGhkkHzm1hmVJPiK7QpwryUdwYRhG
03xkNIS66K3phbDF8vFeLm34+r1FON2fUBwmnkvqDsiNJt0kdQePno+7SuuO
6tJDXgRPcG1QZhnBE8g9VHGB4sltMdUUgicYmX04heAJXJ8r50/x5MJBX02C
b1h6ZqKN4Bs8XneYYzfBt5fPzzIIvuHDBFFHgm/gxT/wgOLbC3uxbGehLpzh
0vPzYHwnHF9vskFoYQnonvskOKbdjX7JHEf1vTtgdVCwhqtpEUzVyJDPP9QH
jGtqXexrmvG5LYKAaA7M1naTmEjtAOaoY8Sbmi4MbYgtpftMlNI2MqbNaYfs
2VeOBc7uwdnBZ6fW15bC+dKd6t9EayG0sjqML6gPJ7MaSug+nMZ9ff4uyeWw
vox7Mad3P37s9RENX1gJ175JXQkQiIZnZ8Z/Tz3ZD6UdagN8qxshsaZpss2/
DjjHezO1rxTAwRRRc+3N/WD38mngUYf38Or2vhebJhog/KnlKN1/m1fSY5gv
kQ1bE4K6jFKLwHvWWYEInwHYbnLr4JejeShy+P6HZosGmMUYVqf7nF+w+k38
tX71V78JbwOHxJSyRiz5Mdul7cRnuCw38JHut59hs7QtTyIbGzwP9JH740/5
0Dn0/l53ds2dFH4PyPnkx7fRBtz0gN+y0LYfvpnHbue5nYcKXs7jYU4NOFv/
iOrsgT5wirHWPOldAWvVFzb33a0Hgam/FtB9sJwb1KLI9aDWoPuLXA9794kq
0usfO2Wv+C38HptTJ8fI/aHSJ9aK3p+3jq8rdXc5iFadxS+lhPcv4h2i+5N1
+pW1vuuVwlQxafq7LSgPRvbQ3221TxdXuhrlQwoqfZnuUwQneecozTUeADVW
3wRih6O0b8J6Vt8Ev7M7K4n9seHx1Bpif7R/9tWK2n+yeKL82fpY4E1Xz+Y0
7sfZNdJj9Pusp15fPP0ForGvNpuN82Q/iqa/+kL9OODq8ds5uRzt14puIH6H
BBtYQ/2+vWvBVBehLtjmZ5RO4hOdLNV5aXyeC7bbQ+ITooqMV5D4RL1XIz+u
k/h8Fm3z6sCGFljqme9e29KLxlWf2feLl8PEBQghcYiLrhTeI3EIWVdeStI4
bMl6nrYuPhOnJ96YkvuUCfPjzDrKmyphVNXQiNwHXRfFvif3gVtPWpfQ+/QV
H7r7KqkLf897cSxkEdGvu5LDencUQ56b/6dpWxgoPtPPcalMKzzYnrLFwS4P
tnGIerwZbIX71ndPDdzsRtVjZ/zpd0PvrKvb4tN64MbQ0fkqHO3Iu+62/iGZ
AlCElcaSz6vAvjBgDB8xkN1LlZN+nxXy3mkOz492qDpWfELephu15piETBiW
wgMvybiXblXQnZfd5DGvHx1Mo79LZlRA4r/idg8rbk8ddTxO/Iuja9IGiH/R
LOD8VurfUtb52Pas87c/ss7HnsLmVEnHL/5rfBHrXO7vvH+ey53MOpdbnjU+
wvvP87r/Opd7knUu9zPWudyxrHG2gX+e142s+XixzuuOZj2XvE8nHff81/hK
1rncTaxzuf1Z53KT683peDNrPIA1Xjr3sHGQUzr0FrVIWsQzoXtTlLphTSXo
5h0+axMVD6nGXGL6bUy4n60fdY+7Cjy3PO00IXxGsTdghtHRIszXecdJf0+0
s6jtkE4cgPCPp+5FRRbjDkkjrrTTqXDiU/+lZJtBOK/8cLudaDaO66rKCulH
wYuVL+cTfyE/8I8Rf0HcmWczVhJ/qe0X4Dsb/BlLT54NPvu5D5cJyYrR72cv
FPLnysVnQmaI+Y+cp4SntHA10vg8Nn3s27vwDMxbMqKTHM7EXzs/X33aWgk1
R0P+2P/JNsWP7v9EhsavfXT/59OOGerWUfEo8cxUgrwXbrPLi6bvFT7lYzOZ
P85eOLeczB9mXN8oQedv+TjnApk/FoVIPCTzh2vKWefo/OebGZdy/2jHq8zw
+yQOIfHW7lwah4/CSqNIPON+/xwdEs/gepDvHY1n8ztic0i9QO1n3NpT1jRD
x5sPt2m96Gj90k7yBQbDLquTfMF9Y6/7LpN8cc6tKCT5BfBQfiXJL3yTs/kA
za8v/fqZ/gNluPRzU1R1RD9eiJxkL1hWCedaNqRTndI/Y+wL1QUahTOVqS54
8q9zfX1Z5/oqs84lfsw6l/go61zipazxYNa4CWvcwGX8Dt0XGh7vxU7XjROf
zJhcYdUKi/QPnjRi5gLTNKn6c28v7nFTdmLGtUJMxkR/VX0jaHx8oCS+ohcr
/X0TBEdrQYV1LvEU1rnEIaxziTewxqezxl+zxr3/dV4xN+u84s+s8amscS7W
+H+t9/7/jpckht+YMBsEV8N4gcQv2Zh/KG0G3a/+6uCaj6Fag9DyXKzILjUX
bYvqKtguRIPaSMf+VItByNJny2cmZOMTda41G2qjwKaI632W1SAEc05rtVDP
xiYOmwjuq1FgrKKoSa7H/RKT4gMJ2bBG8YYVvX7j4tC35HqUs94kf0Y9G248
ejxAr///nX/8p5mzrO0GQYUvtsKiNwtbz7sklqyOgubTnTxkHMcHnSXP9GYB
B5/VGB1PfNbwx3fxX907in6kfFfO8GY/xD33o/K7BV93jOmUw7LrbY7azxmw
ZU/xu6bERpA0HPQRiWkC+y22zvIqXfBJRfzWkiWtsNIwjEuIuwMStmhLadS3
wJ5appe7SRvo3giT2B3bDWvknQW35lVCfWp81S6PNjCUVq8MJfHP71jj3q2S
CfLs8y+lP2yFqM+CbYJZffB9j/YzpUJZ5T//NsMUrr3sEY/64dc+d5uwBMTB
x9FnYgkvuNRhzVErxIQBWWn7e8KfsTufX2YNdzUMlQdlT7VhwoMvw/nnGSXY
rdu6hdeuDLxTbVTudTDh4YY5SbdEylCmzU7qUsNnsLUwa9vnMgD5oh8kRBpK
cLGrfUZ8aTqZx48/7CMYp9Mdu7JL+WWplsf3W6HKq1ZZLVS+WA6tTxLNVkj2
QFL1ZGf4/TaYqm1hbtbTDJ+PqSyzTG6D6QsZzh9tOqDLK3oP+5cO2Oa8ovG6
Ww2Er/9RU9zQAdt3Xy9QtumBsfyTKk4V2fD5nvaN0ap2cFMpGkgKYIDuhS08
ckVrlf/82wqWJes0LmYSvdCj35cRkIahRvP7v/g2gTeH+8zflv2wbadUB09C
Ia6MMDa/tKsWNLefUaojemRuzOXGNafL8IhphU7jvAq4c+u8Rq4rE6ye6d4d
8ivHnTlLr10WLwLXmZHLVm0jOk5iZOp2qTK8tdFEOWn7f/ehbkmPMPwhSPJE
/6WMhFsfaOrWyPJ/aoKn3e6ZTIV4GH70gitGuRfePnm3lvdcO8TxHk6SWlIJ
VvHJn+abdcByt45oI/UusGevWOw/oxUiHYO97K3r4VaisAWffjesWqRuqt7a
Cf5cOappZXlgLPTSqMayC6bMCpofyOgB3vbKnsM+C5Rd4c7UrcIdkO0qN7Xq
MQMqF3k2zgrNwMqtn7wOCLbC2326+0vu94Hx2ZIAtzMlGPzB0lFiqB4OrKwa
eKHZD6r5PZ9qVlbgi8lbr0+zV0HDJdHgjzxMkHyl/2iNRiWOfW+L0yQ4aJpU
dylumAld00c2jrwpx7VlWy5tGc2CiwXZNyJTajCnu7NsalYvuNdlTCRmNICd
waHLR1emoi37Lu32Fb0wP+3TM0ejdtjruTD17eJUqFVapLPFuhMOtgQ7Fpt2
w7BAvYbH3Wp4fN9z40uJJtBw3SXaGNoLD2s08ZNcG/Buk1k7Ob8QPjx/tYJr
Ty/4iW6ymnDp+ts/Y3v3pc9L6YKYovZmB7Ze4LF8ontwTjYm3ZmrHbO2HZo2
5J56a8kAqcCOl2/UyvCmHm+mmXAz/OBVk9tv2wdb5myU3r+xCu/pLF1VtKUG
GqaLeUWd6YfA65KPU/ZUo96Lh8A1UAoVpUc6V9xmgs/0/NUXzlRitZNBWFNv
zt99rl/9q8/1f8VP2V2+GaLYigxtteXXVLohT8GLW3OkFpacO3d5WLoSX5wq
TpQb6AZJyxwvfos2OHrRN7dDKh7nvh/N8b/RCQ8n9p/sv9IN614+VhecnQVz
HecI9f9qBr6AWdmdG/pAuWiv+6sLdSAstAvOEN7sparSYMzWD1rhtmFRM9v/
nlfptiwbzQ+9sKjz61OR2C6YOPFeau+XXGy68AR533YSPn4v/FFND6SOq2yY
blmBAQ4XNJ8ebwWrVPdVzZoMWLFfTvzE4xqMEdFgzGqsA/+Cw4mRQX2g9814
j3hILVozf10PSCgnulUrUoLE1YedfhubL1Wj5K7f0vpEX9uORAr3vSP8aoWc
reBICR4xuPpwh2XCf9oNNtfskDMl9dvQeWlefhPU3l58++aUXBi47KZ+6Wkn
hqq31Ek87ADzkVAT9t9VMEdk1aa2H82IofbmCd87oTlUbePBnhYQs/j6WP5M
OZq8ufVgN7lex2VTP49DF/jMX2/My/sec4q3vRmUaYH8uv2J4SS/HeyRm2tT
PgSt/8z1UrsUkjzUZcpEBoCjxM5y0+EGqJmyXy53cLGy343od56R/TA/NaZk
/Zl2METt+2miBdhc9EYp2rIHji9qOLbvcRdsn39m7/chwgelV+dEuLaDyH57
OcOUHpCUuc/z+XQ9Bl91nTGlvxEcWx5vOODGAIuWqAPCRxpwTn2bi0BVJcgd
O5B+zrAfjARDZI901mJb/aGhmu4C2L1ToXb8+AD0xdSz5b0vQ9/tbs1GK5L/
057zZBbJvnjWj8ttHNhFQutgs3BaYEz2f+NeZq31r437evAyWsXWSrXBd++q
ecd2VMDV+43H+KQZOGXu5lvfhFpgjjHfQ52vpfBwhYzkdYEOlDn1VMg7tR3q
y9/6PzJtgrltg8ZnObrxR1v8cMaTVqhytzS4KFoPCUvO+eSGNKFgFCOWZ5zU
Synpyq8fOiDZnOtXVkA7ThvNdF09rxXWiUiW/3zZBp7iZeWXdMswv/q0PZ9g
M4ze9uJYeI4Bmqayz/NUmlAhvvnIKr8GePhJpOyqVg8cEA38NV0vGL/sXuQq
EFkKyZOrd69OGoDcnwKFY+qlmHBSrNCXuxSeXYls8wxiQqG4fnnrcBGsco26
3n94tXK51+t5LTMHwfi82wrTkEbw9WtZ/OJwMa69nTnYotoHAT1HZoyrl0LB
3Etp5D44yb6jnt7HL3/48NfL7cBozDwVmVCLjrMrakbaOkHu5rEyMk+Y5TlD
h8wTPbnX5NB5ul4xrHPw7wKN0ZdGMcFNaF3zcWLGxxZIMbLizw5oB868uZeJ
HdBT0TmH2iH5p/D7mTN7waizJuW9TzP6B/I/199D9KaWnzWxMwQ7B7UTO2NJ
+XNVamfu38o5hef74KbIhPzP9AZU7VxWYsBbAte+uNgQP0KfV50d8SNunYh2
pH48LNcm7jnBBB2N/kmtggps0M1c8GBT6v83T+ML9ftInouu7Sqm5LnQPaHb
Q5/7g/97MJk/aj4fayDzh6/uqgl0/l6HpuURO+BU+V82xA5wJceaZyaxQ/YB
BU1iT6zcPmlN7AmR3xTaqT1lNEV+nQppxPuVy2SIX2Bl5M0x6pfIOdfjePSC
Yb7FmAfxOy6cd30n9fu8/hdTL+uWQZKdkS2JH6yd+WN8AYmfg9s35JI4hKCx
F+EkDvHnxm95NA4LDCOAxDOcEH02lcQzVv4KcKTxvHhSXnjTvh5gU1UJInmB
E7NuTBzd8d/7MTh7D30g+Yt6Ab26JH8hYWTdolqSv8ZOIVIk3/HsM/azJN+h
Q+7lA5rvcZWSywk+oNNIiBjBB3jN0yFG8UFb8c5BgicoJexkRPAEji1nK6V4
8jlwfxrBH1Rg13pB8AcinUd3UPzhX/V5K8ErrF6eqEjwKiU6/Fc8xSvpb90N
BA+B72W2L8FD7BMq76B4KKF7yILgJ8xTXGFM8BN3b9KUpvgZXnH6OMFbyC3l
yCR4izMq23ZTvP2v991txB5K8B8TDfsOE/yHW0s+HqL4P+VQ7ntSL5BtwOck
qRdgX9X9gNaLAN/vS0h9QRXzW5tJfYGp9xax8ZP6cjHlbjCpRzinoh1IPQIT
Ljk9Wo+eHVzjT+oXpsq+3UjqFxzy5sqn9avCh+lP6h3+NZPh3xxOtN7F7llW
2CkVD8ZuzVmknqLotJnHaT396r0sntRfUMzwiiH1F/fuy7tO668lxz4ZUq+h
3OWjAKnXWC7fM7SX1OtQ7qoUUvcxRidVmG+iCGw3zJyWQur+qSUdDYQn4N3l
9fsJT4DrMg0FlCccmRR2IbwCF4fXxBFeAS1jD/dTXjEz8IAU4SFof5ypSngI
hHfFAeUhP+4nHiG8BTcfXBtNeAs8Mf1VSXlLzi+JGsJz0GKznDHhOfDZJ9qA
8pwF9nqnCC/6+30vfBAspLyIsWhpFOFReFU8T4nwKPQFXEt5lPKuDAnCu/Cn
rKky4V1YdzJhOeVdU9LadhKehonP3xwkPA2HZp1xpjxNcv/FH4TXQVPmfE3C
6/CB4I4nlNdNMf+zL08qqy+PFKsvz3/FwwbZN68ZAoMo4jDlcLVXAUyVyey1
Vf0A5mBgQ3gmlkYxDhCeCUrbswIpz1w4duIR4aX4pPbre8JL4Tf3l2zKS++3
mXURHouOBTfLCY+Fs/cskimPVRXw0SC8F+MWXg4hvBe0G8xuU96rfUnsd+Vj
Bk49tLyT8GQoHnl2j/Lk5wOzhAiv/ttuL2r6eSmvPqJZc5jwcLTacHMP4eFY
milmQnn4U7UfAoS34w3XyTuEt6O6QIc15e0BclI+hOejm+K3FMLzMW7Z/XjK
85GxcbRfIR5PWz/gJroAjXVWy1FdMNU0XdhZIxsuinza8+V6H0oaRHs9+ND0
n3ZbNkvku/T6QVx1i8+t43w+7OAsWrbpcSwo2qkvIvoFp1/7LUr0Cwi9SjGm
+uXKpOl2onfQ/jmEE70DQopXnlK9c9A7ZQPRRzhku2GE6CP4OPOqCdVHwzfX
Tyd6Co0CVowSPQXnzMvsqZ46/HrdDqK/cOtNmzGivwCuiPyi+qu64X4P0Wt/
203smKsQ1Wtta42yiL5Da//oHUTf4bb4QG+q74YX7VMjehBzVwt0ED2Iwgf0
m6geDO4t1yL6ESfSuyWIfkT2T8HuVD9O++H4c8vFcnz3fMVZojfRfIFpL9Wb
sGxbeCdfNBrk7Znm3NyHSXIt/oULm8GP1fewjdX3MJXV9/Dj17E/9p+azBqy
iP7amqKilzyeYROsnCUnbR+hNYgbN60u4g7KhYjrhblma2Jg9zWzRqKLcZX3
lq1EFwOXoVMb1cXC64YUiY5G5XkFRURHgxO72g6qoysEuTOI7kaPqW7lRHeD
2No6Daq7XbbzsBGdjrvK17gTnQ7Nt303U51+NMtv4t2jfvR5dMWF6HpQjORz
oLpebiisUTCr7297rvmYHknXAexa7pWEbmFgmcoKum6AzpnLnei6wSC+Wbo7
thvr7M1EtuZVokbnrHq6ziAjIscmxN2BK++DjEZ9Cz69ZOhD1yW+l8x3FIlp
Qv6zHjfkVbrQi7HjDl3HePsLpMZ0yjFpfMJF+zkDv34/GU3XPX6cWP5r4uUr
jGSIHLqfw8Ty3urXlvLVYFnY84c9JW7XPmtXGE6pO79yZUd0tHJc4xej2xOE
/zgdSezi7wNrxaL0mKmNEMgpuqQ+sBEWLFv6qKuwCxxL1vFubGmBLscpl7b6
tUNwto7uR9dW8OfpC+pWawOPV3XlFce6oZbjcIWhWDWIztDRXUXeS9Y+QfUL
FwM6M57zCzdmw7z0y5XqH1r//q584F/flb/hbGnOmUn4V82+31fz81DSs++e
uFc1cEjY3nU5w4Sv5oYuLa4luP734jvRP8tA4eaJpS51TAh6u2i9wkgpOs/y
NmrqKIDr7Luc86wH4EfWxfV+kyX4Ov2qD+2X9WGOvaay/CBMnn859Ox7HoJp
9qX11nH/mb/S39lO2ewogRcHNQ4OyxPdZfNd/tNAKwR8r27z2dsIAzHW+85I
dED76qedorM7IEKj1S5jqB0yO4NvS32oB9362VeeVXXA+vY7423l3RDnG3fm
cnEBMNcvMK1b0AFmrO/K1/7ru/LwYTk2t+Z+eNi7iil9rxQjTU40+6tXAud+
0R115ky4YeVfELa7HDvVN5Qd3lwC5x28nT8uHIAzmWlJK6+UoesSkRwH32x4
PXwjfsn4ANwe2dI236QQp3lY3Pzt+glucGxZcKKxGHQTPYumWXWBmULKeamj
RG/xnTy9tqMRPKOG4+o1W+C2jY+lo2g3XFKrNzU72wEBzf6pn9eUQWKC8+V5
HV1/fw+uwfoeHFnfg38N0dBoKO8HBfWQfcVNFahnt8ci4VAZ7M14dVX2DROu
a0h2PleowKdnN3Y0puWBdILE2MVXA/D6q5jSw5gSFNopPX1QIwWesr6/jmB9
f72K9f31iPesq+cEmWDVZS//aXcVnp9tPBToXQgRrO+UPVnfKR9hfadcIcJf
ccmSibutUhW0jlTDhMPaLVab0+EaSwdNzvlTB/GzdNB8lt75ztI7JSy9k8rS
NVwsXSPL0jW6LP0CLP3iz9IvFSydksXSKU9YOsWbpTvSWbpjypQ/dcdqlr7g
ZukLb5a+SGLpCA6WjrjF0hFv/6UXalh64SpLF/SzdMEOli7gV2LvJHaA1TEj
XzSPVGMDbws7tcN/xb9WXtrPFYV9uLRifcwTBrnvk82yU9iKYE/0XnFty168
wZZSUSfdDGaBARe9xathZIuFkzZ7NzpOWdK4IK0JyuSiC00FW8B7UfDZBdM7
MEavyb38TB0UCDo7XlzVCTsWhB9X2NiM8Y9rz+WsLQXtfB/PWD8G+DRazdn2
vgSS3mm2cEc14uuRN6Fv5vZBgfeX27Y3GkHpZOmzpcFtyJY/+xXn2U4wPZZ3
48jzdth/y7pmQWQ7bvms6xb1rhmsud54S/V1Q8bWAtu9Rm04Y66vn8/ZSti4
gO8qQ6qf+OPw7lShBvRaKWjJsyLnv3VQwkNjDpE+XG+qFM8XWQ8eLbkMj+Jy
ELC7+vCsTi8OPFl0QiCsHvYdbKj49bYeDu3VmbZGvxvtX980k5asgZjPc5do
QhtUuMfsz/XoQGXVOUJLvUqgX+3Nz2sLukFdedjaaVkJSH7alfWR6JSIobNp
MrXdULcgiPeLXSNsn5RhvEruxAYbhcrgnW0g/YiPTcilA36ovGz0G+/AqZ93
FQbfrIWQtz7eN+czwNNkxSzjXy3oMG9ixPh0IbBdXiQYzmBgHK/FhO2vGvCI
eMbrNVwNH47XLFPy7cUrzuuiuOZVwSZzxw1XrzeDgQK/ZG1uN0aXrQ11PVMM
o1ec3/Ey2qFn4mpdi0AJWHK98KpX68asUS7HLqsOqKhfe664sQlK2NTSzN51
Y8HKyLbDHE1Q9Xbk7TfBPvS6PK6gvL8CfMuVuoNN62Gii6NvZ38vpodnZeWk
FkKWY9bqY5tbQfTNpgY7wz4UMaizXLylAI4lmCx7MrMJWsQXRAgExgBRSb3v
3Jnw+Mn1quGVNfBoI0MuPa0CtMx1xQZXM8ClvvXCtGNNwDeAVZkvU8HgWafR
TIk+eHfUwcbZogVmPl3uZWXXhyc+7DnhFtgMp9aNHjvWkwbmV2W3vAp5j5KF
79QaJxnwYd7b7Z+nt8IW1ndk2f/6jiwx0OZ2jmg7aB3Bt9I8VfDlyaOpp1d1
0/jhpd9xrGF9FxbA+i7s6HPDa5e2lIC+xMGjk25tIBY9UnL3cw+cYo0fYo2L
s8Y1551QPFPUBDwzsn7ynqyCBJfjJ9I+9sJ+1jjHv8bNjVKzqzM6YLZVxc5X
9xNBzC2EIT2/ByxY478t/zneGxG252ZsFBj32oteJXpJVHLwpfFsBpgGMfa+
JfzpqMpY+e2jdRDgF8CY0tsH938oTra/rQCN7MfNjCtVcPWSoEPA4n4oEpks
OnG/GVTPHdz3yjcDdPN/T14y6YOSBeJnpSRaYUeywRL9tI9wkF242rSOAfdm
G3CuO5WKyaOGdiFerTD3gV5piDUDVmivUO+7SHhq9buV2p6VkDmoey27hAk5
nIp9dxtqICo2Ivla4HvAn34H/UyZwDU15GddajP08ebKV/hHompalcvzD30w
a0U939l9bbAj4Wjv2ttZaC9ZtcUtohfmep4xhjnvcfOjgMcb75fDsvm29vdO
DMBhm2g+48f5YJWlpqenEQI3P6deDtwxCOxsTjPY2I7+9T1U0l/fQ6ULv/Am
eAW+UYdNCV6h4ZCkI8Wrpyw8r2Dh+S/WOtJh1vdTE6p/fj+Vwvp+6r5swYPD
j/PRPXOWGXkuHnv8y4k+97zDqJLKnPdwLvhoMJknftzWbkvnyTnf79eZfW0o
+nkdk7wXXLz3Zjd9r6Utbh+IffDIBqkMYh9MwDdHqX2m/+YqY1xMQ719aZLE
nriIP+H6H/asS7Yn9gfTpmEbYn9sMnIpovY30BcwIP7CWs4QKeIvjGlb1E79
5Xq+upD4/f819+VRPX7fvxpkLDMllYSSpEyR2A1k1kTSgJIhJRpNkSLRIFRE
0iCVREVpbjdPmud5nt+9y0yS7nmu4/PHZy13re9d399d99/XetZ5n2efvffz
2ue9BzQv5G8j5444XH+NOfeYMhsDl5golJwyW5ToD2qpSz9n9GdiGW8c0TcU
OTJOh+gbTpTu+Mbo21jpb9yN4rwUd7NunkX0Gf2vmHPyGVejv8X+04w+W1M8
heIBFF/iULef2Avm+nkdI/aCawoqKxh7mUjxcorLUJyc30LGHtVo/VQFrZ8y
UzXTJ3wGP7kF5hI+g6VH1K4xfGb8lMcOxK6xPOXVG2LXOG/YnZex6611lnsI
L8Ko66uSCC/ChDY5W4YXJbqc+fxkXB4G3nTfERbZg0WjfgHxzzuhJVVj6/Og
aDjhz6dM/AkKzL/9v/1J/I7zGo4KPWBQZ2os1NeJ89SnCd8/9A6OvGupIX4J
svutTjr5tuCc0KS6I8QvTS19bU74JDZf5/AmfBLNJxc6MHyyhH/k3u6caixP
X7k960s3Fiid+GSwrAN0jxtaEr9H5PniMPF7+NVP2Ybxe2482bKy7Ba0nyqt
7BrahT7znHi/aLVByAGRecR/op70Y3HiP1Ehvvoi4z8HyoffivAWYpRgd7pb
Kxs+TEjCA6Llf/0+TqD1R9K0/ughrT/KnffJYPhBLb4u3L3r8kA/nLfnFn6o
WQuVLquNN42x8OWcOT6lYU1g1KJj5TSWDiUUR4pbUNxg9nqphQaDsLNPxees
QDm6G89ZPPIpHbY99V2zV7YNDx1Tjp1m0gtKM/XmP+apARWKH6H4NoqvO5Am
07RuEJ5oszTeT6/AaTbq9+b+TP8H96X4ZIo3aYYv2X93CCr4Rw7GTs/CPdGe
dtK6Yf/guRRfT3HZYxNcph4axArv1c2KZhWgLDF43GMgFsJ1PXQj7AYwm+vh
M5XoBjAXf/pAYGMGIHSc5PXtxuEKgfWxwZ1k34cXTXtK4vuVqtxPQjqx8u6r
AxbdXRDJ4fD0R1wVxEodv5hM+POkuXWbJl+uQgtDebvZm7Ph0ISUA7enD0L+
6sHs8E8VmJO4PkVVPAOsJxtpvd8zBNfGf7Z2kcvHAtXp6kN3ouAEV+4d2fAh
yJJKeVyTl47+PXbzFvIFAzvywhnCH/DNns3rCH+AJU0z5A4T/qDsWRj9bUYS
GHum8JZNyID8yTp3B+yHgJPWVWXSuqr5tK7qnst0Ra8OwnM718uu/lyJ3A7b
6oy2ZYBt85TjhHehguGlh4R3gaCpVBTDu0ooP9en/HyO3W9+PuWNxYAOVwbu
cr6T8oyc986DI+JR+kNgtjPX9iBXBlyxyU0kOC58JCTG4O1X+T/FvWLDgYBI
B/u51ai8bWGdqWYGuNjpdxEcn24NSiM42Kff5zUjuNY4g6CvM5LwsljELPJe
GJ2b48W8F5xg3VXLGULDPPUCllkKZLi8T1t82A/UBxLWkPfCdVciT5D3glDn
lROPkvdaReuqltG6qkpaV9XwyGT9tvoBWLRgd4+nWD0aSd8UPrYmA7612boQ
+aOjo6tKbV46iBtYljLyvzT98V5yjphxT/MTOUfYP/lOD3OO90tNlxF9gLb9
LhuJPmCNRaIzow9tZSZXiV7B83eP+Yleoc231k2MXhXyBIsQ/cTp8+s6iX4C
x3ShJSuJfr6juBLFD1L86AcjCaL/uJM75jLRfyi6eiWB0X9DimtTvIPike4B
R4h9QVZOly+xL2yPM+dk7CuN4qkUL6Z4dNBeH2LX8Iaf3VES1oRPJvPwMHad
RXEbip+g+N/8jOWjr59InIgRyicNSZwIN5fJqTNxIhZxLiX+AR/9kEwg/gHS
VI9tY/yDiNabM4uby6GnY6HueHMWihg9YpfxNMCskaRc4pcg2kNajvglEl+I
TmX8kl3ySZ0XmzsgXM0ncvK5Xnwl7FguEV0EAQ4lr0kcjaHLPVcLHisiPMyl
lImjD/16bizKWwjPtxWGEz+JgfGF0f8nPyn3LPyn1JohEEjKkuw8U4DrPP0b
1vnFgPdXVtTBJW1o4vdp42GpPlgvxFf9KaCC/I5AVP+MIQiQKR6pdilE08rv
fsy9axm1l33UXiZRe5lJ4zsJGt+V0/hupoP2vFujbCye5aaiXlgJh+8+12D+
DxoMy9kaHDAA2jfeR/A/q8dlklUHmf8TW4c5ikeMBtHq2m7F/Ohy0LWcrWQg
ngIcM/mOrz7BguTUr5l5Bc0YP7xblfk/V2iC5xTWy0Ec+WDzcubnUvhxI/8j
87/w0Sebtohd7QPtJbGVbM52nCqeqPdybuFf5WO4+4jgyrhBkFiazL1RoRQN
OEoKvwek/vV5c0udkofku5Og4ab21rUMPU8Q/+2W9o8/96P+nJf68wDFmEcz
g4Zg3rizuvFXMlAyPC5ir2XIP/68mPpzFerP17p6CZ87zsYPj1ZM55euhfq7
p9QCdFIgjF9NJq2WDc9ONY/jbq1EiZ2nRbujMuFcu4vD5UtD4MF95MGkD9ko
YPD+1KLAcMiJVdz2bdUgFi9RSD6jVAl+e9fM1PSOhwfbtreZO/Zi7GAv/wvf
dnjN1Sp53r0MpK+MT1ilz4bvAguuxoyvwXMLzjWcjMsGncQppiGHhsBxsXZa
okwe9vFEL6nQewkslo3ep8hBzHtefc9Kvwz4AtQfjZ8ZCyc+55XG2/bjk+2r
0u5vbYX6rJWXA14Xg3K88tH4NwPgZLAwh9+nDvHZrPfWi/OAXbDb3FtuCGqP
OARdYxfgKfmHeZIHoqDAvztnJscQPq/u+uKhUQwhj7WGWcdeg+v5+izLAhaG
7VxsoPu6ESqmyV1/PuMd2D5MqiY4pPHbLSY47r+dvZfBXV6lVpJ1QKTv4lKy
Dhrl2Fxi1ml7YnSU/C5WVtfqXWcXwOIu4w3Lye9uflyxj+wTFWzmjZB9gmnY
pEU2ZJ9Bz717yXtB3vmbAeS9UOeVlRLzXkI80aeJHIAjNHcBkQPuDzw5hZGD
Ie9SIyI3vLjd2SRJJg+4Q5vfM3IzsYt4SeSMs83WRhI5w5aitZNMiJx3dfX+
IucC9ek/v4f7tuO0w5lTmXOZcm7cEXKOkPB+7lpyjniexW+uQc7RrkH/Ijl3
dEvdJD35QzZs2sIpJkbO/Y+/laT+Vor624bjEuJEf1DS5MByoj8wfZnSLkZ/
jKi/1aD+tpb6W6++ISWihzDHw8tynnQteqycec+f6GEC9Z8+1H86Uv950/+l
N9FzFN2wqpboOXR+GdumRvQ8IFshn9gLPpwXaEHsBW5JnLNh7OWv9mXxeg6x
R1yv1SlO7BH4DBZNG/4/2OPf8DyqPxlUf5DqzxLNGW8HhgbRU9UsZP6sEvjG
/mx20DoGNF2N5qzsGkSlLpnCb3YlkPDSOlloMBbUKG5J8UGKB1U67yI8B/cb
sjlc5fLB97jeC4bnqDRNOX5WioXd4i3PPI+1wiBP5NEqgzQIkD2bGWhbg6cX
XFeOiRqALTGT+MeVlMCR83FullIs2NlvPf/OsVZcauk+nXl+2lERyae2NTAy
b8GvN1EDKLCov3SsuAQMaL3YE1ovNpXWi+2hdVuytG7LjNZtRdD6LGlan1Uf
+7s+6/txzQWEJ+BW/b79XmL1cGngrinDE35RfBXFT1B8zNVPhMgBlEw+KxA5
4JPnr3UYOXC4/cYlKe5EcddLLs9cFAaxl3PcLvXeCvjaNd5y3eJEWErrpHbQ
OilHWie10GIgnZwL7F8+NCIwqwSnLzkwqkPO5Sa1Xzlqvxeo/a6i9UrytF7p
Ea1XEpy9JYH8LlheD29W661AhyuNXWvJ75ZTXrSV8qJblBd50HqZQFovY0Hr
Zfa+XaVnYjWEyq1n1pzfnQOTD99LOjEtEtQpLkrx9EO/8f9UP4/S+peXtP7l
S8Dv+pfbhhkXTHrqIWu+VaS3KQvzv3JaVvNXQDXF31I8muIHe9+6d/O9huAD
LtwOLSyod+r3ZP7n4oxX0fCXjUGJzPZ2afLee5d6Rm6Ua/gfnyelmtv0QtEq
GljsqMXb7epAPuOi/OutbOgMc3797E42Bj3aGMAlXQeCDiyfQtbAX9dxo+fO
Qc99Fz13kU0+Rm2filFjWGM1S0guVYgdKcLk23x/euVCu0INTsj6eJa3Kw0m
hIb//HSN/df1z1xczp8rPgRn6iXmbhAsxP6nTs72rZGwuqrJj0euAM+P758c
qlGGp7qjVzF5XFb7X5aq6FThDVGBy7P403Hykykv5jWxocNPbSsfbzSMJamG
D61oxS/fwxOYfLDFrXKxYBWN2xW3ixE5YPKJOZsYOfxtPwlvr01wJvHEnPJv
XrGReXjmndajpcFhgBT3K/uN5xb8xu3YVi0z5mTjRtOq2QM/W7Aj5koBk9dX
MkFMXLmyHF9NWBgx41Qtbh48sTdl8gBcpfcbL/91v/G3/Whyqj4ncSWc3Bkr
QeJK7C/PDbxN4soaH5uDZH2I+Fr1gqwPDo7jVZn1+wxkpm7RqYJ0iUXniHzg
4Tf/AEY+xTsclSVOlEGy9KDOhZ58GL3np8EjOAhNFPf/F+7PnRtDzhHKHkbr
kHPEy6FNH+g58jD3Y7/3tzXpz/3YCyvdJSF3siGutIfRKzQRNfNk9ApLuvXD
bOrxwlenHWYLSnHM+10nk9/ot1XNM0A2Bqx2sFuIXaDm95UvGbt4sOutq7Nj
PywT4uuMO9qG5m/lbnrqpYMxxc9SPIfi/6ld/Lfw3fHbfUicCG17Jkn1m6Xg
jrVzxMVInLiL4sv2/sYjKf63dQrp9/EW/T660++jveOVob0OQ3AjQiNvg1c2
LvFrOcR/LAwOZX3tIjgOmffel/fKhq2plUoCBFeicWtJ7u+49f2t33Hr/7Qc
Ol81jXNU6MG2gMuxQn2dUPr6ixNzr1VG73Pi6X3OKXqfk+M4Xf1dYx7A+Zrl
EsYDcDjYP7s7tx5i7monJFytwrXbGnk8lFngHZKUmvi2DrbQ+5zD9D5nC73P
uV0k/CbmcDda16ieylTvgsin1lItT0rhDsWtKB5B8eHC8W8dvbrwuL2yePeh
LnB3lGn2lqiE2KlPBaOcejFLL+ZnNGcHzLD7OS1zbwmoRHILkvgF9RNcJgxy
tsOw0LcwJn6RM17SSNaBCxNjJ5B18G5dShqzThyNf9Np/FtL49+a9KQesh+w
87kgT/aDw0cO8zD7aaW4DcXZFI9ZqevINdYMl/WuP3bp7kP7b4IK75WqoJPl
8pHEibDKa+McEifibpdjcUycWNRjs+BjTzasNTd1EfpC+AlXtcHU97VwhuJy
FJekuGGqzt33RlVoz/HJfzWJYyNt9U7mj7Lh8DjJKcQPYP4PYQ3iB/BL4ERd
xg8oUXzCyG/8K8U5x42bucNef/MdWncWTeu8tvoMX2/cn49LwbqwclUz6v6w
ajtwhcU8z8U8f4XWhb2lz7Od4uUmeZfB+1evKu/cDsQmydwvBTgIgq5fCsk+
QV4y/ibZJ0Z9mHSI2SfHOEUXpl6sndaL3aT1Ypc/9B0ZFxYGM3h273uQy4Z9
aYNhTP7DAcm2xw9CM1A2ue8zH/l+bHg6/9TSoAoo2CBo90ptCB6bXbed9DgP
22u3OTP5JH/Tc3+49eWG/hAeHzeT/TYyDx5rqrwXJ/7fl+LPKP6Z4r8Gl04k
3zXstY4XkhcshDdZs59fbf07P6n4MbN8vNYQyKyVLFl6MR8tyjaM5FeHQnFc
UKOnbB/IzxawOtDWjsIbRzvH+nL+a/Y70SnwZ0FjHlor+q0k9oiDtqN5jD1q
y4374hOaATg3rZfIDQ/f+2DEyO1v6+wXLRpP9BYfJFomE72FsGUC2ozeFgx2
B5L3wv7zkXqSF/PBIVLOp5C81ztBKTfyXhjga1RF3gu+dSboj+vPgavrVT14
fbuhdmzpnNjgTlRVH+Zk7kWjjCtViJ3CD7+VpcROUce6MC+D2OnqMI71PLEd
cJi/3uGXeA8evJB9YO6HCph7OnCZnHsDOK6YP2WDcz9GXFqwwq62Go7ncavK
mrKR+2v89i7zWlDmmBVifTQeLo2KczwYjUWjhWPfy+zZWDBwfafDylqIq9v3
3H98Nir4HDugnjOACbHRiks+1wErddaNC52D6JW6Ojxcthgk13GzNl5KBrmy
jJjKtUM49fMPf2mxAug+/yRjh30sCImKOJiPDeK2ffMWVX8phA0rdO8KySaC
q678SJFHFSRPvq8tosjCNx67zpjH1MFjy9jVtg5puHh6jveeJWy0/Tnhi6tA
HaTPk075cJXEYx8OSa1p7EN2jyeH0MdWaKL4NIp3UVy4ZpXnPvFSuMC2M97h
wsIrdQZ6KnsbwWahhvtU8n3p57TjSNTMRq3WwP3T+CJgf9OgM8FxQ+5ia4LD
GZdfgwz+39K3/xauSuvaomldmzOta/v/bZ//Ke6YPyghf24Ij3ifPanlmgNb
T4OYm2konAsPO6orPwQVfonitQ0FeL/a0kCq6xWsEEpdR54H7ht82zRdc7Cq
0PCXC3n+P/3de29yrKY9GoLTpy5s2/04E13vN17iXxH0H6+jJFejTfaJrRO/
c9U1FIDaxXzdFWSfFT71Xlr3h+CWaqB8a3YmjmmuFZV3eQY990tcCY4Xf+yY
2ZadCWHBHtwbCf6f/u7pohKZ6tZBSPw+ql+9vxRLMtU8X277z+PBiOgnxkQO
6JSkkbjncSY4S06oFPi/kMPfcOtKv3PcV4fAg08x56RiNpp3TVQ/z/UKonKO
9cy/OwSpHyRjRj9m4nVHbpO5C8Ihc+pUntnPhkDlxXU987UZmHSma63Ap2fg
OMvp7S+vIUiUcs59k5qJsw4VcB/MDwXWoU4135dD0LT344ojFumodmWinKDN
UxgLcJNOzRsCX6W0xxNLk7HWZ+s4xduP/8f1eS931DEXsyG4GJQufvVWLvbK
RnrvnR/y9+fXG8ud6R6C6VnHR2NZb9C36FXgAzlXGNymYEXkhqu0gxaZKGaD
goBjOSM3l5GsdiI3HL77WujXx0wQ3aj3jZHbnCvTOYjc0NlQv57IDc68Uy1j
5BY+6BlF5IbtTR81Y1IzYSAXIxi52VXG7yByw3wR3UoiN1iWXDbEyM0mS1eC
yA07rr9ZP7k0GY4ZGj1S+n8gt5lc7mpEbrj6mW2vw61c8C8+LKtO5BYC/VOI
nmNwfr1xzf5SOMTt6RZJ9HymxexFRG4YutJ4ZyrrDbwKbrAOInKTbg9+fDOU
BXmfpm/wELkHu+ze3Zef1wpx57odehX6YTOPvsvqgGDo8nzN8X5rOxSsFePZ
94AFuhN5L2qvTMK7khqyt1+3QGZIIF/Yp3LcpHIj9dIpFjTI4aAITwPE+R58
5Du/F1I3c8XFpkeDc9QsuUWDneBREWoxLNMPp/qVlBXzEvDm0zvqyQLt0Ge6
ud1WjwUyFsEHhTcVopBzzwwmzycp8lidUkkphj80Tn2e2wc1c9eYLf3VCtLi
o/yFc3oB8r9pfIyIw/UBhaprGztBd9Loh+0DfTAl0SYlN60Is29JLWHyiGJV
QmO+zmSBCne/5GbNSgwoS6pk8o50tM2lSpqa0SJ4aenJlz0AF3S+MXlKik1v
fFpnlKL1B767DVt6YJ9f6DUmr2mDXN8Z/7pOWNukOT/AKgYzn3TvqBLrBX7p
Idm6vB6QdKu9e92sBDMH/Z8y+VF5D65IKdztg/2KrMAJ/NV4N1RmIZNPdXSL
iWB4fz+ITNnZZ/2zFlcHVX+/9akG5NK2d8x07MRXThwfvUY6QfpZaTeTx+W1
ZEbNkG0Tdikf+ByW0gW7k4VbmLwv2R9RR/JudoLUV5kpoi6lmKwVMsjkj/Um
rJglc7AHuFzdtaUkanHZ6MM5TL6Zm/za0NNaffAkxXn7jJAG7F2xNoXJT/uY
127CJcCCuQ7pvnyRDbhCo7qSyWe7MuJpI8nqwb2W29326LeD1eGgSCZf7lq4
rPnhpx14yzWrWzCyA2RDFP2Y/LrJyru1rZ2a0DP1WrhoYDtwSUu+YfLxehs5
LgtO7AT8EHyxwqwej5+ebc3k+/H0Bt3V4OiBT5vMsgTTmzFcszmNyQ8cm7lh
tcbZPmgNNoitl2rBna+UDJl8wi10zogYnTMSTeeMLDfq/jXRuwy5fGISSbwA
MjpfRpl4wZXO3YiiczdS6NwNN2/dovq0Fpz1JUKq0jsSHK55ejD5QufGvp5N
fsHGTVO9Tky+XAUfGteFMP+n/3s+xUM6n6Jy1ngjog9Y7iq2mOgDbK/P2s/o
gzDv7WdHH7Tg1l8eOmF3M9FjoeeUi8dY0OL33Np8Jhvl4hMOJOyshgUcm+c9
di/6Z46DLp3j8IPOceCG69OJnqPMWiMDoudgyG2ozuh5r1mi7UqyzwkciZzB
8pWwI49vQnN6PoiFCW1trBjAXTVFJ0uaK0Gw5rMdk2f7Zw6CFJ2DoE7nIFy4
8eMUsUf8GK+3i9gjgCiPLmOPAWan7xH7xbJEh1Riv5g3IqDI2O+Kyu12cQsG
8YrPqaplduVw7Vd2N5NXrBihrlRvwsYgPun2kJ0V8G5jcDuTh9yyNXLYqWUA
TXtOc63wLAO4ffQ9k7f8Z+5AAZ07kELnDvDvHMdB/AwqVE73IX4GcnweKDF+
JkbE9xLxS7hPWM2c+CVUYTVMZvySnNGBz+0VPRij3HPuYkkhun8JM2fyqP1W
brLLtxzECwFOal5jxB/yP49k8r1DSsWFHOvZODC/ZYv85zKIXt5xnskPTysN
u+1oxkbtoGVurddLwctC+AmTT/5U8FVj7lQ2+nFJTrlSkA/f50sFMPnng3Re
wCCdF6BG5wXMEdzmQ/wqTjkX8Ou2yD3s5DJ4wvjVLce+Kbyf0I9ftX4xee+Y
wW/VyOS9F7blFVca9mDbafcGPbEadOe6qMfkydcs5Nkiy26BY7P2bHYN7YI9
tl8mMfk50hLvXu/OqYaa0lKVrC/d4DRPZojJ8+mIge939rXBiiBxrTfr28Bu
i/X0C+GdsPHNin3+4/IgdsVy1bDIHlgd7OrH5CNt+iS+4eqiUnyTvCw/Lq0D
wtJ/5TL5pReXdLcrR5diiL1Ex6SoJlh3vzKCybNVpfnMq2k+sx/NZ06l+czR
NJ85mOYzv6F9y71p33It2rc8fOjIzw3f2mH76yWmH57WYvi6ZrjxtBu8MtRZ
BMfZqqLnCA4d37t3Mrgy7V9tQvtXN9H+1Uo++1KNmkpQ4EltOY9FN67XbLVi
8tX3VExkEzngOmnjA0QOWDuqNZeRw+ed+nl39jShc8f3fWZLOzFkTWo/k5/P
jyqKVttK8Wqs9sFP6/vwrEzdRiaff47pLQtlrw7csE9YN+56G7bOVwxi6hqk
Rh5ObfBtwlv6ck+6i7pxoF1hOlMHIR22bvPt0TIMX3gEu6ezMEp1IIepm6in
fYmDaV9iJdqXeLGz+aquxl5ce8bxgEpSG+weE3qfLFIBnIrykySKWGBpH+j4
pL8B9/wI/sUxrhgcaP52H83fVqD5298lJXeSdWDT+PBNZB00EHSvZNaZR/vc
3qB9bu/QPrd1tC+lGe1L6Uf7Uv6pfw+m9e8KtP5divbZK6Z99iRpn73ZNK9A
mOYV5NC8ghBaTxdI6+kO03q6PnqvdZrea7XRey1Pei9nQe/lwui93Ajt+7SQ
9n3Ko32fYi1+CkQ0lqL2lJa620fq8SDP5A9MPupZz4eDjfvzoVJXPbdyVTMI
/chtZO6Xsq2Mc9N9B+FaZebA0jOlKH5waHZTbDqsvCufQXDkPFIxWfxMKYj7
Ll7D4HZ8BTcPGb+DhfZLVl1yY6HkrYEUN5cmmEnr45DWx4nS+rg/fVGMaF8U
FdoX5c7ooqrR9Hr4uM/0vh53LxyV2Pby0JFWcKw81R1f3QYyvCeca8M64Mrd
NCGN5ja4/jLtWdfdLog9s3pbrkYTqHLhB7ZLO4xddQyuteyF6LPu/LM7y+GR
lcOSFr12qPBN3LThUj8cDnl9asbbdAgdlSlebNIGdf+az5hF62jelUlJCnCw
QYNzYuTJo3m4ec1gnatoLdz/cSeRQ4cNIebbb67SK8EJntN28S6thLk+1s1r
XrNhg8dPgcTrZdhTlqEya0UpnAgTbcteMgjfT+bskXtahsLbtWLsLfPAVO1e
GyQMQtH40remSSXIH8z3yt89DV5JDXUfe1oI7YJH/erT+kD3k6JQ+oM2CHx2
TNGWvx5SOd8ppD3qghcVIaPCER2w+eb2ZF4uwjNuzyvWOtkKRkmBvtmpnXBw
6cAD+ZEuCEko7sjfWAVONVsjS6I64WqqePSKgl4IL3JPamdlwlhDWlTH445/
5jMuo3U0JrSOZt0KzbdCpQMQ2Lp11X7RMnyfH4nwqQrsrmmx27eyIfeHt/IM
zgpMWp54ZMCpDN7zx7hHVbJhf+ia8yJTKlDkdratx6ECsNireNZs8B3MTuOE
i7N7gLskK892Uhc0vf9iM2LQDa9Ut3yzuJQDnXk9Enwru6GW1sXsoHUxmbQu
5nTx/ED9pAFwXnC9b2NyJboXPvIfmFUBpe5vmveYs0HhsH2RbXglBke+CYzy
KgQ/Wv/ykta/rKT1LwMW70SEWeR9+7M04t2qUeW24v37YiX/zOlzpfUvxrT+
RZDOcw+k89yF6Tz3ZjrP3YHOc0+g89x96Tx3FzrP3Z3Ocx9H57lvpvPczek8
d6R90XlpX3Re2he9is5tX07ntp+lc9tj6Nz2h3Rueymd277qX3PbxencdmE6
t92fzm13pXPbLWm/4tW0X7Eh7Ve8Lvj4JHu+fnz+cHnbapdmEHf+IhAkXgW1
Jvyp/UM9OOPQzdEIqRZYGGk/bXJdI8QF6GyfcK8LGxyPTFo81AhfrvEv1otu
h4zzo87GNu0YZPWi8ZxtDVzo6q8b1usB4VTR8Yr29fC0aRyHV1MbXksdfvac
8Fp8EvbUv7UNJHgvlA9f6sBFRZM6j49vB6XVLZompV2wffUWz65NHZjt7Js3
ElEPXwzFTI6Y9oG/e15RkDLx5zs2B3u3lUEKp0emuhYLY41Un20gcUvpXf/m
aYPlcGmGUhR3eh821n+/pc9qAJ5hzpDm9Dp4aerKf2teL0bwmqgEV9UBzwaz
G7eDWoF9qkDv888uFB7jVVzZUgmGV8d2XM7phNmxyXvYBoWwLjbLMEqxA7uE
Pny6c7sXZik//NqhUA9WSyNs9c514QvO5WWvcgjfaHh8t2BfO9jkXisEry5s
Hn/Ud6isCbTv9MpNmMFCudrUezwL6+B62JhnuFANfJa4zT2pow8LOUP3yovU
QHXgyqa2l02gJSs8Fm/Ti++mX+047VkO0idPeXibtcNOhXNnmsl3ISV95csZ
k3Pgub5TqfKabhindmLyptWFcP3+jvvHRrtRxVYl7OuCLljYP2/+If4GKPg8
/Eq/rQeX7R9dx3W2FWZLVZ96sIKF/NvyCzsLK0GtnmOSln89nF5gt+v86n68
L/61M8C7FGa0S4fEGreCa7mWbde7Xpx7UvhBlmsmCM3ekZoR0AGoqc193YKF
o97mZqfziuDHsrgJ8bpNcDFErjPArh+1b9s8Ej2RDsUhOwVGTNugwnaXw9xI
FvKduHXy60qErxmDFrZiLf/0iQqZl1jC9In6QftEOdG+SUvKRcWZvkk6tG+S
17D+DbIOhNiY7STr4InZ7wyZdThoHyHt8SeNDt0R3HyD9hGaeO1CP9kPDH9u
8CT7Qb88menMfizebptM9g8Vo1L7yf5Rt/votziy/3PJcx4XqhWh4GXPZ8ci
+6BiaIqvk38beE5TvELkANsCU+8QOaCJRkQMI4fGdBtNIjf4deFNE5EbJvK0
PGbkVtlRY0nkDPILdicROWNi1/AXTSJn/vEedQb8Dei3a1ESORfw7WIBcy4z
XV/eUFhdiCL21b7kHIFTU+4lc47BEqUXybmD6Wm3IHLuyCmA2cy5vys9NzHB
phfOCG+oI3qCu989cGL0pFXYg4/oFaz5fG0T0SusvBGUy+hVla2KEtFDiE5+
cJnoIZoESdkzethI+Vgg5WMbKR+7L9dnQ/QZdZ9sbiT6DFvwezSjz/MuTk0h
+o/NA6X2RP/hUe2+ekb/TTfw1w8YFGIs15ZjxF5Ay9VtmLGXrQE+J4l9gcyJ
zauJfaF60HNg7KtKdtlSYo+w4HrjCmKPeO/tjEuMPV7PmpxC7BeaDs85S+wX
MYx9m7HfsIbRYmLvoPOz8gaxd5RJeJnH2PvzTXs0iH/AmzHufcQ/QO9LjzTG
Pyzj7pQn/gTjlFufEX8Cw0v02hh/sjZxhQvxP3j82foW4n9gj/DNIcb/vCvf
Xgz29Tj9qf5E4q/AIp43ivFXIZS321LefpDy9nch2Q+J34Pizn1lxO+hiO/b
Ysbv8YuwdYifhGnPtb+KDTXiwuB9/IyfTNtkXEz8KnidMmgnfhVzW7O+TiJ+
9fYTf37ih0Frn1sK8cNYHGDEyfjhP/H1TxpfP6bxdQ3t/zAgcyvOalaGwgfa
/2GX8fl55HuHrU+MzpDvHajoSyQz37sVNI4+SOPocSO/4+gFtK+CU1LmiNls
VLCifRWMJKtqyHcWiya86iXfWRjWVsxivrMSOq8eku8yWgf94lBIrgRj+/ho
5rssQOPoZTSO1qZx9LM//Qd4zuRWTEpWCPrTf6Ci1ozwAdTNahsjfADhkpss
wwcO0rjmEI1rWmlcI8Qqm0F4BUaaNioTXoGPLhgWMrziz9wKB8rnr1E+f3A7
303CT7CB3+EO4SdwelbxfYafpA9t7CF8BhvfeuoQPgPfw70sGD6zVl0mivAf
NNBVViX8B9w8dpQy/OdPPJ5O4/FMGo/X0v4AuSfYMUNc8QqitD/A2sCV4YR3
4S5R5zTCu9B9OiQwvGsDr+cdwtNQRla9n/A0nPnrZCzD08p5a6MJr8OtaoLl
hNdh0yanQIbXtTjLixEeiC2HdykRHogfvQw5RQgPfD1/jTfhjcituiGQ8EYM
7f8kwvDGFuH46rmxgxjcdylw/UgJOLSz2Lq308AqUL+R8FLU285nTHgpFDxb
VM7w0qolTvWEx+LlREVxwmNBPm6nJsNjrZRa3hLei+pVzY8I7wXjWwcPMry3
fu3AUsKTUV5LLInwZDAWdexmePKfeL+VxvsaNN7/U++vVlh0Yj1HrMIKWu9v
ICewgfBz5O+baUL4OR4y1K5i+PlFzlB/wudxQf5jIcLnsWJVhCTD592vq/sT
/o8tnFF7CP/H2xUvvjL8/56OWDOJF3C+ZrELiRfwJXvrIiZeyOX2SiXxBYZq
Rj8i8QWmv90QxcQXf/rlitC4KYfGTXK0bjGP1i2eoXWL3QZuP45aE3+whsMj
vbkGTBJ9FXcr90CBTfoq4QuF8LN9sd6MPR2w3HFgeotjL7jL97lZbm8gfH3d
UU7deghPMhxemdMHnrSfm/uir9KNUzIURmk/t7OuQb0X29qhtOzNJWHNfNCx
qZRzmNoHjumaXXtuF0Hsj0APd/VGmGNttXo4kQW7aX+z+pThA+L3sxTKaX8z
yx47lsX6Rljy/ZGiKl8hXC5+enakjgUjJb/7d6UEaA8w/bvu0/5dl7q9n74g
v7vw86mzvfV5WFTxPbtsVh+Y0Po7fjq/LJHW3/HTvjppVfH3c4eEU6NpXx3f
rQX3yDr4dFP7ebIOeHfMK2fWmbPbMJ3sB0UnzNMg+0HthC0Xmf04Pj9nR94L
C6PFvcl74be3PBuY9zIx21FH5ID6YttvEDmgz5dEZUYORxe8P0bkiQtML5gS
eaLVLW8OGSJP1YWh1UIXCrFZrOowkT9abWDNYuRvduwlm5wXXp53wpucF/o0
rdjBnNefeqtVtN4qmNZbheqqJAwcKMXGgmd5BY4s0NCUXuik1gjKi6zH7DYO
AqfoxB7XgHK8c+dnQ8zOTJiGbtN9Iptw8frhgnjZPtjC88w0+1cdlCxeZ7el
mw3H3fW7FZUqMTzj+bDnlyzYRufRiNB5NHPpPJrLgfqexW870Hhdhdyco90g
d2fo+mvJGjg5Y5m0ynk2bMuaFmQnUY2ZL+xqDXpy/pnHlEfrhhbTuqFbTSJf
SRwBvKf1J5M4Alc8XHuDiSP+3Ou+ofe62fReV4LW3cjSupueP3U3/5rHcYPe
ezTEnl5M9oOWyznekf0Ah9AxzkNkP6yzMXFk/5B7LkCY7B/llAJPMfvnfYtW
RA547/52PiUlEnf12C/0InJIof1jd9L+seW0f+xXOl/Glc6XuUXny+w0ERsm
8keI/MzjFlAOJoOTxhj58/7rf3ln+r+8mtJavt37h2D+h/WmBw/nYWzP8w+a
s17/M58iiuYbL6L5xrtovvEamm9sSfONHbmlitcuG8Apy7xOZ9o3wpUtVbvz
RbNhOc3XPUDzdVNovu767XYs8jx0vHOcQJ7H9yKnOJnn//Sxj6Z5uU40L/dJ
YsNEsk/8OoOvkOwTJgX2rNci+1yxJ6fMSGgALCKCdoSIN+BI+pzL56cVgs3m
oqupXWx8nWZn2mdQBU2+n/cyc2QWPDicROI4fMw1bj2J44B/jOcME8cpLg/M
IOvgbIvIS2QdeN2/6BWzzp/549L0f4Fi+r/A2Tm8QatCBzEyb05KO/luZl/4
tnufewI8p3nXajTvmpPOxYjoKY8gz8M2P/cL5HncEbi3X4s8/2feRDq9B1tA
78H+zJXQoPnSD2i+9Oe/zMf5M4eIh84h+krnEP2Z95RG5z1tpPOewmmf8E7a
J/w87RPu5TPCtcC+CI/sfzBZblMjVPL1W/alsaC3MrPyiWsxWE2de2v+nmI4
UFKxXFtsEOJoH7wFm492MH3wKmkfvCsXRM+QdcBYuGEiWQfTxm8yY9YRHBrH
9YPo4fWRkEQRFxYY1ofPdiZ6uIPmRafSvOhpdC6ADM37dbwjPp7J+11A836t
Th8/QfaDR25o3ST7wTynolXMfrbSPI0smqfhR/M01h4LbB0WL8VZChGp5Hdx
c8FTfuZ3V51t+rWlpRD0kg4p8KT2YeJi51O53m1wmN6/7aP3b6vo/dv/AqFv
Xqs=
    "]],
  Axes->True,
  BoxRatios->{1, 1, 0.4},
  Method->{"RotationControl" -> "Globe"},
  PlotRange->{{0, 1}, {0, 1}, {-2.738122921143809, 0.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5300372704673023`*^9, 3.530037279863454*^9}, 
   3.5300373149278183`*^9, {3.530039731907311*^9, 3.530039763939389*^9}, 
   3.530044329471065*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "p", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "q", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testfunc", "[", 
   RowBox[{"p_", ",", " ", "q_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"KL", "[", 
        RowBox[{
         RowBox[{"expnormalize", "[", "p", "]"}], ",", " ", "q"}], "]"}], ",",
        " ", 
       RowBox[{"p", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "p", "]"}]}], " ", "}"}]}], "]"}], " ", "//", 
   " ", "FullSimplify"}]}]}], "Input",
 CellChangeTimes->{{3.530028701669261*^9, 3.530028710944981*^9}, {
   3.530028753634953*^9, 3.530028971737199*^9}, 3.5300374402802973`*^9, {
   3.530039441081992*^9, 3.530039441376687*^9}, {3.5300397152865477`*^9, 
   3.530039741063839*^9}, {3.5300397779976273`*^9, 3.530039798869122*^9}}],

Cell["\<\
looks like D[KL, logpraw[i]] == Q[i] - p[i] 
if Q[i] is normalized\
\>", "Text",
 CellChangeTimes->{{3.530041615199827*^9, 3.5300416358778276`*^9}, {
  3.530041722584746*^9, 3.530041747350387*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"testfunc", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", 
       RowBox[{"1", "-", "c"}]}], "}"}]}], "]"}], " ", "-", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", 
       RowBox[{"1", "-", "c"}]}], "}"}], " ", "-", " ", 
     RowBox[{"expnormalize", "[", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ")"}]}], "//", " ", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"testfunc", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"d", ",", "f", ",", 
       RowBox[{"1", "-", "d", " ", "-", "f"}]}], "}"}]}], "]"}], "-", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", "f", ",", 
       RowBox[{"1", "-", "d", "-", "f"}]}], "}"}], " ", "-", " ", 
     RowBox[{"expnormalize", "[", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], ")"}]}], " ", "//", 
  " ", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"testfunc", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "g", ",", "h", ",", 
       RowBox[{"1", "-", "f", " ", "-", "g", "-", " ", "h"}]}], "}"}]}], 
    "]"}], "-", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "g", ",", "h", ",", 
       RowBox[{"1", "-", "f", " ", "-", "g", "-", " ", "h"}]}], "}"}], " ", 
     "-", " ", 
     RowBox[{"expnormalize", "[", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "]"}]}], ")"}]}], 
  " ", "//", " ", "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.530040024647637*^9, 3.5300400819890423`*^9}, {
  3.5300402816108103`*^9, 3.530040369523498*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5300400255502977`*^9, 3.530040082968946*^9}, 
   3.5300402863290653`*^9, {3.530040318204905*^9, 3.530040336965963*^9}, 
   3.5300403704238873`*^9, 3.5300416454311237`*^9, 3.5300443344726152`*^9, 
   3.5300444026879473`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5300400255502977`*^9, 3.530040082968946*^9}, 
   3.5300402863290653`*^9, {3.530040318204905*^9, 3.530040336965963*^9}, 
   3.5300403704238873`*^9, 3.5300416454311237`*^9, 3.5300443344726152`*^9, 
   3.530044402689722*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5300400255502977`*^9, 3.530040082968946*^9}, 
   3.5300402863290653`*^9, {3.530040318204905*^9, 3.530040336965963*^9}, 
   3.5300403704238873`*^9, 3.5300416454311237`*^9, 3.5300443344726152`*^9, 
   3.5300444026913557`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["dKLdw", "Subsection",
 CellChangeTimes->{{3.5299608210943203`*^9, 3.5299608212989597`*^9}, {
  3.5300284716665783`*^9, 3.530028478626582*^9}, {3.5300439242683783`*^9, 
  3.530043927003784*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "makevarmatrix", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevarmatrix", "[", 
    RowBox[{"s_", ",", " ", "m_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"makevararray", "[", 
      RowBox[{
       RowBox[{"s", "<>", " ", 
        RowBox[{"ToString", "[", "i", "]"}]}], ",", " ", "n"}], "]"}], ",", 
     " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "m"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dkldw", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dkldw", "[", 
   RowBox[{"w_", ",", " ", "f_", ",", " ", "q_"}], "]"}], " ", ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "wtmp", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"wtmp", " ", "=", " ", 
      RowBox[{"makevarmatrix", "[", 
       RowBox[{"\"\<w\>\"", ",", " ", 
        RowBox[{"Length", "[", "w", "]"}], ",", " ", 
        RowBox[{"Length", "[", 
         RowBox[{"w", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"KL", "[", 
         RowBox[{
          RowBox[{"expnormalize", "[", 
           RowBox[{"logp", "[", 
            RowBox[{"wtmp", ",", " ", "f"}], "]"}], "]"}], ",", " ", "q"}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", "wtmp", " ", "}"}]}], "]"}], " ", "/.", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
           "\"\< -> \>\"", " ", "<>", " ", 
           RowBox[{"ToString", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{"Flatten", "[", "wtmp", "]"}], ",", " ", 
           RowBox[{"Flatten", "[", "w", "]"}]}], "}"}], "]"}]}], ")"}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.530044787608652*^9, 3.53004481667721*^9}, {
  3.530044870636445*^9, 3.53004490873025*^9}}],

Cell[CellGroupData[{

Cell["Test Vectors for dKLdw ", "Subsubsection",
 CellChangeTimes->{{3.50401932583255*^9, 3.504019328703233*^9}, {
   3.504185890254962*^9, 3.504185890709035*^9}, {3.5042036574835863`*^9, 
   3.504203657569166*^9}, {3.504916768505199*^9, 3.504916769023423*^9}, 
   3.529260167313177*^9, {3.5299621410302753`*^9, 3.5299621412155457`*^9}, {
   3.5300472253697643`*^9, 3.530047226809141*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nfeatures", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nfeatures", " ", "=", " ", "9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "instfeatures", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"instfeatures", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "4"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], "]"}]}], " ", "}"}]}], " ", "}"}], 
   "&"}], " ", "/@", "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"!", " ", 
               RowBox[{"ListQ", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
              RowBox[{"!", " ", 
               RowBox[{"IntegerQ", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
           RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
        " ", "/@", " ", "#"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"logp", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Append", "[", 
               RowBox[{"#", ",", " ", "0"}], "]"}], "&"}], " ", "/@", " ", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", " ", 
           RowBox[{"(*", " ", "w", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"1", " ", "+", " ", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], " ", "}"}], "&"}], " ", "/@",
             " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], " ", 
          RowBox[{"(*", " ", "f", " ", "*)"}], "\[IndentingNewLine]", "]"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"KL", "[", 
          RowBox[{
           RowBox[{"expnormalize", "[", 
            RowBox[{"logp", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Append", "[", 
                  RowBox[{"#", ",", " ", "0"}], "]"}], "&"}], " ", "/@", " ", 
                
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", " ", 
              RowBox[{"(*", " ", "w", " ", "*)"}], "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"{", " ", 
                 RowBox[{
                  RowBox[{"1", " ", "+", " ", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], " ", "}"}], "&"}], " ", "/@",
                " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], " ", 
             RowBox[{"(*", " ", "f", " ", "*)"}], "\[IndentingNewLine]", 
             "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"Drop", "[", 
            RowBox[{"#", ",", " ", 
             RowBox[{"-", "1"}]}], "]"}], "&"}], " ", "/@", " ", 
          RowBox[{"Transpose", "[", 
           RowBox[{"dkldw", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Append", "[", 
                 RowBox[{"#", ",", " ", "0"}], "]"}], "&"}], " ", "/@", " ", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", " ", 
             RowBox[{"(*", " ", "w", " ", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", " ", 
                RowBox[{
                 RowBox[{"1", " ", "+", " ", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], " ", "}"}], "&"}], " ", "/@",
               " ", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
             RowBox[{"(*", " ", "f", " ", "*)"}], "\[IndentingNewLine]", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], " ", 
            RowBox[{"(*", " ", "q", " ", "*)"}], "\[IndentingNewLine]", "]"}],
            "]"}]}]}], "\[IndentingNewLine]", "}"}]}], " ", "}"}], "&"}], " ",
     "/@", " ", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Random", "[", "]"}], ",", " ", 
            RowBox[{"{", " ", 
             RowBox[{"i", ",", " ", "1", ",", " ", 
              RowBox[{"nlabels", "  ", "-", " ", "1"}]}], "}"}]}], "]"}], ",",
           " ", 
          RowBox[{"{", " ", 
           RowBox[{"j", ",", " ", "1", ",", " ", "nfeatures"}], " ", "}"}]}], 
         "\[IndentingNewLine]", "]"}], ",", " ", 
        RowBox[{"(*", " ", "w", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nfeatures", " ", "-", " ", "1"}]}], "]"}], ",", " ", 
            RowBox[{"Random", "[", "]"}]}], " ", "}"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "instfeatures"}], " ", 
           "}"}]}], "]"}], ",", " ", 
        RowBox[{"(*", " ", "f", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"normalize", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Random", "[", "]"}], ",", " ", 
           RowBox[{"{", " ", 
            RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
          "]"}], "]"}]}], " ", 
       RowBox[{"(*", " ", "q", " ", "*)"}], "\[IndentingNewLine]", "}"}], ",",
       " ", 
      RowBox[{"{", " ", 
       RowBox[{"foo", ",", "1", ",", " ", "10"}], " ", "}"}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.529961680680732*^9, 3.529961722910391*^9}, {
   3.529961863474926*^9, 3.5299618847063513`*^9}, {3.52996200365142*^9, 
   3.529962055911655*^9}, {3.5299621338774014`*^9, 3.529962133912876*^9}, {
   3.530021972830516*^9, 3.530021986439197*^9}, {3.5300220191827106`*^9, 
   3.5300220193354263`*^9}, {3.530022304799243*^9, 3.5300223132422667`*^9}, {
   3.5300224626821632`*^9, 3.530022481542577*^9}, 3.530022550577656*^9, {
   3.530022590697927*^9, 3.530022609108737*^9}, {3.530022650279427*^9, 
   3.530022650388509*^9}, {3.5300227298259277`*^9, 3.530022752081091*^9}, {
   3.530042083580483*^9, 3.53004213031529*^9}, {3.53004216777103*^9, 
   3.530042185445969*^9}, 3.530042257829097*^9, {3.530044733096752*^9, 
   3.530044757917926*^9}, {3.530044925374443*^9, 3.530044944788588*^9}, {
   3.5300449769295588`*^9, 3.530045058193223*^9}, {3.530045241199809*^9, 
   3.530045242703104*^9}, {3.530045333761812*^9, 3.530045344458415*^9}, {
   3.530045385875802*^9, 3.530045411986967*^9}, {3.5300458088017397`*^9, 
   3.530045890505559*^9}, 3.530047047310178*^9, {3.530048054380672*^9, 
   3.5300480947959757`*^9}, {3.5300481449036493`*^9, 3.53004814547113*^9}, {
   3.5300482156951113`*^9, 3.530048260050672*^9}, 3.5300483778876743`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9056384685092482`", ",", "0.4428212390026637`", ",", 
         "0.8726836217194894`", ",", "0.5587637226418616`", ",", 
         "0.8907840937804353`", ",", "0.38095073155233417`", ",", 
         "0.3131395126813668`", ",", "0.8425856966473838`", ",", 
         "0.5656786764640943`", ",", "0.9590797212091999`", ",", 
         "0.6705106924873542`", ",", "0.57951412026432`", ",", 
         "0.5412650315183849`", ",", "0.8227743310369482`", ",", 
         "0.43400797134331964`", ",", "0.15492927231390602`", ",", 
         "0.9386004969520331`", ",", "0.6124262497385264`", ",", 
         "0.33295664732097807`", ",", "0.517110974395717`", ",", 
         "0.5800237409153987`", ",", "0.04959203528945861`", ",", 
         "0.5322747540194208`", ",", "0.2908915936583241`", ",", 
         "0.6743852724061504`", ",", "0.606770796286795`", ",", 
         "0.6595911322999314`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0.7321278710164625`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7", ",", "0.783601178625715`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13443780226062071`", ",", "0.2062535691233672`", ",", 
         "0.5295724942818303`", ",", "0.12973613433418188`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.6806685338172505`"}], ",", 
         RowBox[{"-", "0.9148154790333574`"}], ",", 
         RowBox[{"-", "1.306694955149017`"}], ",", 
         RowBox[{"-", "1.94878707587106`"}]}], "}"}], ",", 
       RowBox[{"-", "1.3594471501825782`"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.037932723025209024`"}], ",", 
         RowBox[{"-", "0.14227952113970596`"}], ",", "0.1895179963133156`", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
          ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.04059963791539391`"}], ",", 
         RowBox[{"-", "0.1522826884115016`"}], ",", "0.20284233282324915`", 
         ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.2667403435252609`", ",", "0.6759409271312105`", ",", 
         "0.31002805410475864`", ",", "0.6766574706432358`", ",", 
         "0.44396601248831263`", ",", "0.24193295578789084`", ",", 
         "0.15509878179085265`", ",", "0.7380569736912027`", ",", 
         "0.8315397627497861`", ",", "0.9089763084669128`", ",", 
         "0.6379878073951357`", ",", "0.15803323277580408`", ",", 
         "0.7819477274603276`", ",", "0.376701554447492`", ",", 
         "0.3470962137368116`", ",", "0.4836479603696537`", ",", 
         "0.1751769311735326`", ",", "0.7171104221475606`", ",", 
         "0.6149683427203492`", ",", "0.7000467817439386`", ",", 
         "0.9493568664390718`", ",", "0.370658802528996`", ",", 
         "0.7254261683512704`", ",", "0.48212427958231796`", ",", 
         "0.6826165229138109`", ",", "0.6947178753977856`", ",", 
         "0.41539811424651174`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "0.8054668089390822`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0.2386505104254983`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.38125890554666964`", ",", "0.2191800881797843`", ",", 
         "0.056761166056128035`", ",", "0.34279984021741805`"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.4716577353997065`"}], ",", 
         RowBox[{"-", "1.2640066065561133`"}], ",", 
         RowBox[{"-", "1.040885892875562`"}], ",", 
         RowBox[{"-", "2.004008727449982`"}]}], "}"}], ",", 
       RowBox[{"-", "1.5841834655977376`"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0.036206701088591135`", ",", 
         RowBox[{"-", "0.015116065334622807`"}], ",", 
         RowBox[{"-", "0.07073137408928902`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0.12220085318921982`", ",", 
         RowBox[{"-", "0.05101807193743359`"}], ",", 
         RowBox[{"-", "0.23872471120216393`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.543808611142982`", ",", "0.6223115250605233`", ",", 
         "0.9093766024720753`", ",", "0.6251630202153846`", ",", 
         "0.16710705669548997`", ",", "0.27521531132371174`", ",", 
         "0.4257286421024216`", ",", "0.44998608904185194`", ",", 
         "0.4499966345479294`", ",", "0.6602469686033626`", ",", 
         "0.7256818603584829`", ",", "0.5006292226027801`", ",", 
         "0.07933783201893335`", ",", "0.9348208002520922`", ",", 
         "0.24355758077616502`", ",", "0.8180126996889692`", ",", 
         "0.3846199566211478`", ",", "0.5194226860055805`", ",", 
         "0.43809077183708284`", ",", "0.5793621892634708`", ",", 
         "0.931835037011253`", ",", "0.2591233535499214`", ",", 
         "0.3706809365892034`", ",", "0.17225144158775874`", ",", 
         "0.3880264258682711`", ",", "0.636811828489398`", ",", 
         "0.4613043341171281`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0.5470884213723741`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0.2209193691727811`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.28580247838510503`", ",", "0.028118691595166632`", ",", 
         "0.0767487680870586`", ",", "0.6093300619326696`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.163383001266849`"}], ",", 
         RowBox[{"-", "1.3995242802407193`"}], ",", 
         RowBox[{"-", "1.3900979926425032`"}], ",", 
         RowBox[{"-", "1.651263794898965`"}]}], "}"}], ",", 
       RowBox[{"-", "1.4847035155577701`"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.014566221785720118`"}], ",", 
         RowBox[{"-", "0.11959113544195046`"}], ",", 
         RowBox[{"-", "0.09426447812875988`"}], ",", "0", ",", "0", ",", "0", 
         ",", 
         RowBox[{"-", "0.00588197520258215`"}], ",", 
         RowBox[{"-", "0.048292007595806194`"}], ",", 
         RowBox[{"-", "0.03806486891345241`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
          ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7013495485623237`", ",", "0.30989383165622353`", ",", 
         "0.596473109727742`", ",", "0.6915849026059183`", ",", 
         "0.7665287483102314`", ",", "0.06633625088005853`", ",", 
         "0.7784604100387729`", ",", "0.3069649459847706`", ",", 
         "0.247106062304651`", ",", "0.6282454790429757`", ",", 
         "0.19909822077530204`", ",", "0.37512990897351756`", ",", 
         "0.9879827087547296`", ",", "0.2575645424537722`", ",", 
         "0.026846779187543305`", ",", "0.9871034831052464`", ",", 
         "0.35117088026533155`", ",", "0.7962602083366441`", ",", 
         "0.4797583578151691`", ",", "0.7661841139324653`", ",", 
         "0.9895743630996452`", ",", "0.7606845163219376`", ",", 
         "0.38265602548464694`", ",", "0.9952613793076136`", ",", 
         "0.2882248145373215`", ",", "0.45079068466571404`", ",", 
         "0.7861829157569048`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "0.3036764767016953`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0.5216960662270901`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.23111476328762587`", ",", "0.004642383919100456`", ",", 
         "0.5991730859218514`", ",", "0.1650697668714222`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1980688953451275`"}], ",", 
         RowBox[{"-", "1.3570654597316973`"}], ",", 
         RowBox[{"-", "1.3204552400797578`"}], ",", 
         RowBox[{"-", "1.7498799567453847`"}]}], "}"}], ",", 
       RowBox[{"-", "1.3632249455505843`"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.03686387466636908`"}], ",", 
         RowBox[{"-", "0.1318705306822686`"}], ",", "0.17328623589850178`", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
          ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.02145826334711691`"}], ",", 
         RowBox[{"-", "0.0767611272747118`"}], ",", "0.10086898672463726`", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7562089547426798`", ",", "0.8086242849428299`", ",", 
         "0.6215816217434071`", ",", "0.2866072951677095`", ",", 
         "0.4986444122889076`", ",", "0.7817775057552866`", ",", 
         "0.6344781386381607`", ",", "0.9354364149023779`", ",", 
         "0.7023842039522635`", ",", "0.30201914794011747`", ",", 
         "0.8682940247056954`", ",", "0.9458620518027328`", ",", 
         "0.941699687630326`", ",", "0.9193631224554706`", ",", 
         "0.8730326453980817`", ",", "0.6576372372654112`", ",", 
         "0.49090900296461193`", ",", "0.1331802066985657`", ",", 
         "0.5693561686963864`", ",", "0.13594117103832112`", ",", 
         "0.10645456917895643`", ",", "0.12545770098043377`", ",", 
         "0.5726446379794616`", ",", "0.861351167115882`", ",", 
         "0.3502456144362766`", ",", "0.3168334160376039`", ",", 
         "0.9510630162360545`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4", ",", "0.5747438719481726`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "0.851601202147369`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.32622073448169536`", ",", "0.1930201111904168`", ",", 
         "0.3897823464599461`", ",", "0.09097680786794185`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.9891936879218926`"}], ",", 
         RowBox[{"-", "1.371128224910819`"}], ",", 
         RowBox[{"-", "1.4228672082746645`"}], ",", 
         RowBox[{"-", "2.0152942103147935`"}]}], "}"}], ",", 
       RowBox[{"-", "1.3253043671585378`"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.02624031181287964`"}], ",", 
         RowBox[{"-", "0.03494456593343312`"}], ",", "0.08549905184270008`", 
         ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.03888041643458395`"}], ",", 
         RowBox[{"-", "0.05177755833491195`"}], ",", "0.1266844222016679`", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.23303676234219983`", ",", "0.44829085289219844`", ",", 
         "0.6934454052430619`", ",", "0.20751731056477943`", ",", 
         "0.3136736398867293`", ",", "0.5752582074941168`", ",", 
         "0.0358081679776506`", ",", "0.7166083076001675`", ",", 
         "0.1804934331881636`", ",", "0.0059020387977303836`", ",", 
         "0.8998669969393295`", ",", "0.610153738421211`", ",", 
         "0.05503573220772985`", ",", "0.4332574008182687`", ",", 
         "0.03851582982344742`", ",", "0.25990812398493446`", ",", 
         "0.738202316170126`", ",", "0.4821943845822142`", ",", 
         "0.46377195787527487`", ",", "0.4083069218375655`", ",", 
         "0.2031464058878087`", ",", "0.16560950698432042`", ",", 
         "0.8244645008294803`", ",", "0.2590899236424601`", ",", 
         "0.9701096435456088`", ",", "0.7173186540921219`", ",", 
         "0.13101909558641853`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "0.05157261307768065`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "0.6564360036588796`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13553080936090556`", ",", "0.09083467205571986`", ",", 
         "0.319568074826948`", ",", "0.4540664437564266`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.0749804263915606`"}], ",", 
         RowBox[{"-", "1.2437820101122938`"}], ",", 
         RowBox[{"-", "1.6392308131526374`"}], ",", 
         RowBox[{"-", "1.7357132556513601`"}]}], "}"}], ",", 
       RowBox[{"-", "1.570646478764037`"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
          "0", ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.010612285469049224`"}], ",", 
         RowBox[{"-", "0.010183383141621639`"}], ",", "0.006469207208525705`",
          ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.13507724055977094`"}], ",", 
         RowBox[{"-", "0.12961800719976127`"}], ",", "0.0823425510824788`"}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.1361584078002748`", ",", "0.19534393066943845`", ",", 
         "0.7248105670563021`", ",", "0.4209068382629861`", ",", 
         "0.7029010069820061`", ",", "0.15682810084599103`", ",", 
         "0.46490244307136763`", ",", "0.6827045220928601`", ",", 
         "0.22070662239979189`", ",", "0.6930561429707162`", ",", 
         "0.05659552123380212`", ",", "0.4795581162050514`", ",", 
         "0.05509711541547147`", ",", "0.8685916421412359`", ",", 
         "0.797505597591342`", ",", "0.5094484726594426`", ",", 
         "0.3377784613233495`", ",", "0.7375725465548173`", ",", 
         "0.7459329845136614`", ",", "0.853012469000563`", ",", 
         "0.1957180147253443`", ",", "0.6423616189460494`", ",", 
         "0.41096867903614825`", ",", "0.3770698985298471`", ",", 
         "0.059559606925069515`", ",", "0.4470176882766109`", ",", 
         "0.6861581119798461`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0.956163060266861`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7", ",", "0.3566585999430634`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.31513033445247896`", ",", "0.24027179458775677`", ",", 
         "0.2969613119363289`", ",", "0.1476365590234353`"}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.2367017160642184`"}], ",", 
         RowBox[{"-", "1.0495975907094055`"}], ",", 
         RowBox[{"-", "1.5838226233643906`"}], ",", 
         RowBox[{"-", "1.8682610822954615`"}]}], "}"}], ",", 
       RowBox[{"-", "1.3880686037722354`"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0.02370329843026925`", ",", 
         RowBox[{"-", "0.10499320629233175`"}], ",", "0.08774910235391481`", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0",
          ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0", ",", "0", ",", "0.008841572722766547`", ",", 
         RowBox[{"-", "0.039163539688831926`"}], ",", "0.03273131256824865`", 
         ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.5971334444599037`", ",", "0.1646601476746764`", ",", 
         "0.7939004219689495`", ",", "0.08085486212780005`", ",", 
         "0.7285418023186679`", ",", "0.36715455008333436`", ",", 
         "0.28445194930950696`", ",", "0.7430764008044506`", ",", 
         "0.9909692557638506`", ",", "0.621221565569673`", ",", 
         "0.43143948030894397`", ",", "0.5473583860791063`", ",", 
         "0.34860763681780127`", ",", "0.21025288653352475`", ",", 
         "0.05436958177909684`", ",", "0.4877987791540367`", ",", 
         "0.9015899485411903`", ",", "0.5240947745536786`", ",", 
         "0.09820652151223581`", ",", "0.1311401792109733`", ",", 
         "0.6114003611105705`", ",", "0.3028391056452001`", ",", 
         "0.8247479833382348`", ",", "0.9951882016677017`", ",", 
         "0.014266916650666735`", ",", "0.1381789579705237`", ",", 
         "0.030847561369285362`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"5", ",", "0.9143333395399017`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "0.2857251143319988`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.38873230349994037`", ",", "0.37631504609993865`", ",", 
         "0.08634370534054558`", ",", "0.1486089450595753`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.457016000309935`"}], ",", 
         RowBox[{"-", "1.069262965420715`"}], ",", 
         RowBox[{"-", "1.277196993130544`"}], ",", 
         RowBox[{"-", "1.931086756664564`"}]}], "}"}], ",", 
       RowBox[{"-", "1.3660236147251366`"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
          "0", ",", "0.14245493754595712`", ",", "0.030222056748049536`", ",", 
         RowBox[{"-", "0.1759854292352236`"}], ",", "0.04451653631919224`", 
         ",", "0.009444258725193139`", ",", 
         RowBox[{"-", "0.05499466629348014`"}], ",", "0", ",", "0", ",", "0", 
         ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.14980284231751634`", ",", "0.3149561317508344`", ",", 
         "0.623898552656345`", ",", "0.946148221750347`", ",", 
         "0.9395499557839916`", ",", "0.2605865499717376`", ",", 
         "0.13609977350230823`", ",", "0.04455827320915664`", ",", 
         "0.41545518123031294`", ",", "0.16238002845950178`", ",", 
         "0.004959594291334937`", ",", "0.4331579120985862`", ",", 
         "0.11261607558511286`", ",", "0.3376320451212669`", ",", 
         "0.009771392623633163`", ",", "0.41889099544791947`", ",", 
         "0.9744371176145892`", ",", "0.30678448375198153`", ",", 
         "0.09543805308373145`", ",", "0.13316588111592062`", ",", 
         "0.20341270972739983`", ",", "0.5603888716922032`", ",", 
         "0.9241811143482803`", ",", "0.8384100225477724`", ",", 
         "0.0536098674098835`", ",", "0.2454327399413687`", ",", 
         "0.30028256169193535`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "0.8922618007974255`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "0.11405991162589192`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.365388856267536`", ",", "0.06091363484614063`", ",", 
         "0.31450740791207654`", ",", "0.2591901009742468`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.401651550113341`"}], ",", 
         RowBox[{"-", "1.363685217601976`"}], ",", 
         RowBox[{"-", "1.292994308741365`"}], ",", 
         RowBox[{"-", "1.4976929351229091`"}]}], "}"}], ",", 
       RowBox[{"-", "1.3900583517418559`"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",",
          "0", ",", "0", ",", "0", ",", "0", ",", "0.11995238275011107`", ",", 
         RowBox[{"-", "0.196034520028605`"}], ",", "0.040312836377034394`", 
         ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8224661615101293`", ",", "0.15922319389829215`", ",", 
         "0.4145456154896826`", ",", "0.5859886548104661`", ",", 
         "0.4848341163888624`", ",", "0.14945180127465899`", ",", 
         "0.9956546200417632`", ",", "0.611551537195877`", ",", 
         "0.17804963263688087`", ",", "0.05401374819092754`", ",", 
         "0.8624887389258425`", ",", "0.4081388274684771`", ",", 
         "0.6176607609446777`", ",", "0.12983263384264726`", ",", 
         "0.02407871637807014`", ",", "0.3545289600585936`", ",", 
         "0.37222802100330904`", ",", "0.829550072150712`", ",", 
         "0.1318169155806447`", ",", "0.24046904843270167`", ",", 
         "0.38738183103367796`", ",", "0.6653672839610849`", ",", 
         "0.28411338799237595`", ",", "0.5418643180371228`", ",", 
         "0.5649156695235487`", ",", "0.5061440900627927`", ",", 
         "0.8695677725026933`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0.9558756632266566`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7", ",", "0.08008155313468625`"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1440039704081799`", ",", "0.35281660888680694`", ",", 
         "0.13901069020645546`", ",", "0.3641687304985578`"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.9127310562935778`"}], ",", 
         RowBox[{"-", "1.3104172494841169`"}], ",", 
         RowBox[{"-", "1.7041500752145728`"}], ",", 
         RowBox[{"-", "1.9177367220752943`"}]}], "}"}], ",", 
       RowBox[{"-", "1.5290486918904764`"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.24606385567783584`"}], ",", "0.0794419499507844`", 
         ",", 
         RowBox[{"-", "0.041022606506046014`"}], ",", "0", ",", "0", ",", "0",
          ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
         "0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "0.02061478965420412`"}], ",", "0.006655504456125401`", 
         ",", 
         RowBox[{"-", "0.0034368005892606067`"}], ",", "0", ",", "0", ",", 
         "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.530045004941391*^9, 3.530045049784067*^9}, 
   3.530045089999338*^9, 3.530045282587286*^9, {3.530045341603779*^9, 
   3.530045344955024*^9}, {3.530045393545875*^9, 3.53004541365626*^9}, 
   3.530045846496805*^9, {3.530045878114338*^9, 3.530045894044079*^9}, 
   3.530047079778925*^9, 3.530048096791572*^9, 3.530048172710184*^9, {
   3.530048245107181*^9, 3.5300482631434507`*^9}, 3.5300484061572533`*^9}]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 720},
WindowMargins->{{629, Automatic}, {Automatic, 112}},
ShowSelection->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 101, 1, 26, "Subsubtitle"],
Cell[671, 25, 281, 5, 71, "Text"],
Cell[955, 32, 183, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[1163, 40, 115, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[1303, 45, 100, 1, 34, "Subsection"],
Cell[1406, 48, 1789, 49, 103, "Input"],
Cell[CellGroupData[{
Cell[3220, 101, 103, 1, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[3348, 106, 2964, 75, 193, "Input"],
Cell[6315, 183, 5148, 145, 313, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[11524, 335, 96, 1, 26, "Subsection"],
Cell[11623, 338, 3318, 73, 253, "Input"],
Cell[CellGroupData[{
Cell[14966, 415, 287, 4, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[15278, 423, 6379, 145, 388, "Input"],
Cell[21660, 570, 45433, 873, 2689, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[67154, 1450, 141, 2, 26, "Subsection"],
Cell[67298, 1454, 3234, 75, 253, "Input"],
Cell[CellGroupData[{
Cell[70557, 1533, 112, 1, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[70694, 1538, 10192, 237, 613, "Input"],
Cell[80889, 1777, 45772, 872, 2653, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[126722, 2656, 249, 3, 27, "Subsection"],
Cell[126974, 2661, 1977, 44, 148, "Input"],
Cell[CellGroupData[{
Cell[128976, 2709, 161, 2, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[129162, 2715, 7160, 161, 418, "Input"],
Cell[136325, 2878, 1664, 29, 140, "Message"],
Cell[137992, 2909, 1515, 26, 129, "Message"],
Cell[139510, 2937, 1666, 28, 140, "Message"],
Cell[141179, 2967, 711, 13, 41, "Message"],
Cell[141893, 2982, 18489, 356, 1108, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[160443, 3345, 309, 4, 27, "Subsection"],
Cell[160755, 3351, 5271, 125, 343, "Input"],
Cell[CellGroupData[{
Cell[166051, 3480, 185, 2, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[166261, 3486, 7836, 171, 448, "Input"],
Cell[174100, 3659, 1691, 28, 129, "Message"],
Cell[175794, 3689, 1694, 28, 133, "Message"],
Cell[177491, 3719, 1691, 28, 133, "Message"],
Cell[179185, 3749, 903, 15, 41, "Message"],
Cell[180091, 3766, 26234, 568, 1273, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[206398, 4342, 155, 2, 67, "Section"],
Cell[CellGroupData[{
Cell[206578, 4348, 96, 1, 34, "Subsection"],
Cell[206677, 4351, 2567, 66, 178, "Input"],
Cell[CellGroupData[{
Cell[209269, 4421, 336, 4, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[209630, 4429, 4841, 117, 343, "Input"],
Cell[214474, 4548, 37785, 691, 2473, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[252320, 5246, 154, 2, 26, "Subsection"],
Cell[252477, 5250, 2315, 62, 163, "Input"],
Cell[CellGroupData[{
Cell[254817, 5316, 681, 18, 27, "Input"],
Cell[255501, 5336, 137061, 2239, 308, "Output"]
}, Open  ]],
Cell[392577, 7578, 1034, 25, 88, "Input"],
Cell[393614, 7605, 207, 5, 41, "Text"],
Cell[CellGroupData[{
Cell[393846, 7614, 1941, 58, 118, "Input"],
Cell[395790, 7674, 319, 6, 27, "Output"],
Cell[396112, 7682, 327, 6, 27, "Output"],
Cell[396442, 7690, 339, 6, 27, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[396830, 7702, 199, 3, 26, "Subsection"],
Cell[397032, 7707, 2904, 79, 208, "Input"],
Cell[CellGroupData[{
Cell[399961, 7790, 389, 5, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[400375, 7799, 8981, 209, 523, "Input"],
Cell[409359, 8010, 23991, 508, 1363, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
